note philipbailey <p>Something like this should do it:</p> <c>use Data::Dumper; print Dumper $_ for sort { $servlist{$a}{volname} cmp $servlist{$b}{volname} } keys %servlist;</c> 893112 893112