use Data::Dumper;

%hash = (key => 1);
local $hash{key} = 2;

print Dumper(\%hash);# print 2
print $hash{key};# also print 2.