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