while (my $_ = <$fh>) { ... }