my $top = 'person';
my $foo = 'name';
print $ref->{$top}{$foo};