Not just lexicals:

our %hash=(0..5);
{
  local $hash{2}=4; 
  print "in:  2 => ", $hash{2}, "\n";
}
print "out: 2 => ", $hash{2}, "\n";
__END__
in:  2 => 4
out: 2 => 3
[download]