sub blah { 
   ... 
   OUTER: foreach my $b (@blah) {  
      foreach my $y (@yuck) {    
         ...
         last OUTER if $something;    
         ...  
      } 
   }
   # clean up
}