$ perl -E '
    my $x = { a => 1 };
    say $x->{a};
    {
        local $x->{a} = 2;
        say $x->{a};
    } 
    say $x->{a};
'
1
2
1