my $x;
{
   my $x;
   ...
}

##</code><code>##

{ my $x; sub f { ++$x } }
{ my $x; sub g { ++$x } }

##</code><code>##

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