sub foo {
  my $x=shift;
  #code....
  foo($x+1);
}

##</code><code>##

sub foo {
  my $x=shift;
START_OF_FOO:
  #code
  $x++;
  goto START_OF_FOO;
}