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