use warnings;
use strict;

my @cols = split /\t/, <>;
chomp($cols[-1]);
my @fh = map { open my $fh, '>', $_ or die $!; $fh } @cols;
while ( my $line = <> ) {
	chomp($line);
	my @row = split /\t/, $line;
	print {$fh[$_]} $row[$_], "\n" for 0..$#row;
}