#!/usr/bin/perl
use strict;
grep {
 NUM:
  for(0 .. $_)  {
    last NUM if $_ > 3;
  }
}  1 .. 10;