use strict;
my %hash = qw(hello world);
print "$hash{hello}\n";
{
  local $hash{hello} = "WORLD";
  print "$hash{hello}\n";
}
print "$hash{hello}\n";