NUM:
for my $i ( 1 .. 10 ) {
    for ( 0 .. $i ) {
        last NUM if $_ > 3;
    }
}