use Data::Dumper;
%foo = qw(hello world);
print Dumper \%foo;
{
  local $foo{test} = "Just for now";
  print Dumper \%foo;
}
print Dumper \%foo;