sub foo {
   my $x if 0;
   ...
}

##</code><code>##

{
   my $x;
   sub foo {
      ...
   }
}