DB<2> my %h=(a=>1); { local $h{a}=2; say %h}; say %h
a2
a1