my $count = do { my $i; $i++ while <$fh>; $i };