$main::var = 12;
{
    local $main::var = 10;
    $main::bar = \$main::var;
}
$$main::bar = 42;        # doesn't affect $main::var
print $main::var;        # prints: 12