$Data::Dumper::blah = 0;
say $Data::Dumper::blah; # 0
{
    local $Data::Dumper::blah = 1;
    say $Data::Dumper::blah; # 1
}
say $Data::Dumper::blah; # 0