A non-recursive solution, from Re: I have a hash in a hash in a .....

sub lookup
{
    my $r = shift(@_);
    $r = $r->{$_} foreach @_;
    return $r;
}
[download]