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


in reply to Sort Hash of Hashes by key value

Something like this should do it:

use Data::Dumper; print Dumper $_ for sort { $servlist{$a}{volname} cmp $servlist{$b}{vo +lname} } keys %servlist;