sub jump { print "in\n"; goto BACK };
 
sub jump2 {goto &jump }
 
sub cont {
  for $i (0..1) {
    for $j ("a".."b") {
      print "$i,$j\t";
      jump2();          # works
      #goto &jump;      # fails
    BACK:
    }
  }
}
 
cont();