use strict;
use warnings;

sub foo {
    next LOOP;
}

LOOP: for ( 1 .. 10 ) {
    if ( $_ < 5 ) {
        foo();
    }
    print "$_\n";
}
----
Exiting subroutine via next at ./test.pl line 7.
Exiting subroutine via next at ./test.pl line 7.
Exiting subroutine via next at ./test.pl line 7.
Exiting subroutine via next at ./test.pl line 7.
5
6
7
8
9
10