DB<103> sub f1 { ++$a < $_[0] ? goto &f1 : return $a}
 
  DB<104> $a=0; print f1(1000)
1000
  DB<105> print $a
1000