....
my @lines = <$fh>;
my $count = scalar @lines;
....