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