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