sub foo {
   $_[0] = { all => "new" };
}

##</code><code>##

my %x = (foo => 0, bar => 1);

my $z = $x{foo};
$z = 2;

##</code><code>##

my %x = (foo => 0, bar => 1);

$x{foo} = 2;