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();