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


in reply to Non-deprecated way to access multi-level hashes

carcassonne :
I'd try 
  
for(keys %names) {
  push @Names, $names{$_}{realname};
}

[download]
Hope this helps.

In Section Seekers of Perl Wisdom