Select Code to Download

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

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

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