while (my $lines = <$fh>) {...