while (my $line = $FH) {