my %foo;
$foo{bar} = " odd then?\n";
{
  local $foo{bar} ="Isn't this";
  print $foo{bar};
}
print $foo{bar};