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