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

##</code><code>##

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

##</code><code>##

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