perl -e '
NEXT: {
  local $a.=$x++;
  redo NEXT if $x<10;
  print $a;             # prints only 9
}
'

##</code><code>##

$x=0;
{
 NEXT: 
 { 
  $x==0 ? (local $a="A") : (local $b="B");
  redo NEXT if $x++<1;
  print $a,$b;             
 }
}

##</code><code>##

$x=0;
{
 NEXT: 
  $x==0 ? (local $a="A") : (local $b="B");
  goto NEXT if $x++<1;
  print $a,$b;             
}