my $x;

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

sub bar {
   my $x;
}