for my $y ( ... ) { for my $x ( ... ) { next; } } #### Y: for my $y ( ... ) { X: for my $x ( ... ) { next X; } } #### Y: for my $y ( ... ) { X: for my $x ( ... ) { next Y; } } #### for ( @a ) { { last; } say; } #### for ( @a ) { say; }