while ( defined( my $line = readline($fh) ) )