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