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