sub f {
   my $x;
   ...
   f();
   ...
}