my @sorted_server_names = 
    map { $_->[1] }
        sort { $a->[0] <=> $b-><[0]
            map { [ $srvlist{$_}{pctused}, $_ ] }
                keys %srvlist