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

##</code><code>##

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