[Moscow.pm] Узнать родительский ключ по ссылке

[Steffen Winkler]

use strict;
use warnings;

my %h = ( a => { b=> 1}, aa=> {bb=>2, }, );

sub where_key {
     my $ref = shift;

     while ( my ($key, $value) = each %h ) {
         $ref eq $value
              and return $key;
     }

     return;
}

my $k = where_key( $h{aa} );
print $k;
exit;