my %hash = (a => 'one', b => 'two', c => 'three' );
use Data::Dumper;
{
    local $hash{b} = 'Hello!';
    print Dumper \%hash;
}
print Dumper \%hash;