my $max_lines = 100;
. . .
while ($line--) {
  . . .
  # do stuff
  . . .
}