OUTER: for my $record (0..10000000) {
      next OUTER unless ($record == 80000);
      push @out, $record ;
  }

  print "@out", "\n";'
80000

real    0m0.854s
user    0m0.841s
sys     0m0.000s