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