#!/usr/bin/perl

%map = @ARGV;
%out_fhs;

for $out_name (values %map) {
	$out_fhs{$out_name} ||= do {
		open my $out_fh, ">>", $out_name or die "classs: open failed >$out_name: $!\n";
		$out_fh;
	}
}
while (<STDIN>) {
	($class, $line) = split /\t/, $_, 2;
	$out_name = $map{$class} || die "classs: unknown class: $class\n";
	$out_fh = $out_fhs{$out_name};
	print $out_fh $line or die "classs: print failed: $!\n";
}