http://www.perlmonks.org?node_id=1007513


in reply to Hash element access -dereferenced hashes

Is this the kind of thing you mean?

my %hash1 = ( xxx => 'yyy' ); my %hash2 = ( yyy => 'zzz' ); print $hash2{$hash1{xxx}}, "\n"; # zzz
perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'