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