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