sub foo {
    print $_;
    last if $_ >= 3;
}

sub bar {
    for (1 .. 10) {
        foo;
    }
}

bar;