NUM:
  for( 1..10) {  
      $_ & 1 and warn "odd" and next NUM; 
      print "$_ is good and even\n";
  }