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