sub skip_on_odd { next NUMBER if $_[0] % 2 }
    NUMBER: for ($i = 0; $i < 5; $i++) {
        skip_on_odd($i);
        print $i;
    }

##</code><code>##

sub jump { goto NESTED };
 
sub cont {
  for $i (0..3) {
    for $j ("a".."c") {
      print "$i,$j\t";
      jump();           #1
      #goto &jump;      #2
    }
  NESTED:
  }
}
 
cont();

##</code><code>##

Can't find label NESTED at /home/lanx/B/PL/PM/goto.pl line 1.
0,a