my %h;
$h{a}{b}{c} = 'd';

print "$h{a}{b}{c}\n";
f($h{a}{b});
print "$h{a}{b}{c}\n";

sub f {
  my $x = shift;
  $x->{c} = 'e';
}

##</code><code>##

d
e