OUTER: for my $x ( 1 .. 10 ) {
    INNER:for my $y ( 1 .. 10 ) {
        #do stuff
        if( condition ) {
            next INNER;
        }
        else {
            next OUTER;
        }
    }
}