while (defined(my $line = <FH>)) {