my $x = 1; { package foo; my $x = 2; } print $x; # 1