for (1..100) { <$fh>; } for (1..100) { my $line = <$fh>; ... }