Select Code to Download

$h{foo}{bar} = 123;

$h{foo}->{bar} = 123;

${ $h{foo} }{bar} = 123;

my %a;
my %b;
$a{foo} = \%b;
$a{foo}{bar} = 123;
print("$b{bar}\n");