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