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

##</code><code>##

#!perl/bin/perl

use strict;

@_ = qw/perl is great/;

for (@_) {
   if ($_ eq "perl") {
      print "$_\n";
      next;
   }
   else {
      goto LABEL
   }
   LABEL:
   print "The word was: $_\n";
};;
__OUTPUT__
perl
The word was: is
The word was: great