# use it
print $fhs[$i] "$line[0]\t$line[$i]\n";
[download]

That is a syntax error. Better style is:

print {$fhs[$i]} "$line[0]\t$line[$i]\n";
[download]

See Perl Best Practices, Chapter 10, "Printing to Filehandles".

Update: Or, if you prefer OO-style IO:

use IO::Handle;
# ...
$fhs[$i]->print("$line[0]\t$line[$i]\n");
[download]