%h->{a}->{'foo'}='bar';

print Dumper %h->{a};

##</code><code>##

$h{a}->{'foo'} = 'bar';
print Dumper $h{a};