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