> local
他にも、こういう使い方とかってしないもんかね?

my $hoge = { fuga => 1, piyo => 2 };
{
    local $hoge->{piyo} = 3;
    print $hoge->{piyo};
}
print $hoge->{piyo};