OUTSIDE: for my $x ( 1 ..3 ) {
  
  INSIDE: for my $y ( 'a' .. 'c' ) {

       print "$x : $y\n";
       next OUTSIDE   if $y eq 'b';

  }

}