perl -MO=Terse -e "sort{$r{$b}<=>$r{$a}||$a cmp $b}keys %r"
LISTOP (0x299c080) leave [1] 
    OP (0x299c050) enter 
    COP (0x299c0c0) nextstate 
    LISTOP (0x299c120) sort 
        OP (0x299c160) pushmark 
        UNOP (0x2882ed0) null 
            LISTOP (0x2882fb0) scope 
                COP (0x2882ff0) null [195] 
                UNOP (0x2883050) null 
                    LOGOP (0x2883088) or 
                        BINOP (0x28831e8) ncmp [5] 
                            UNOP (0x26610d0) null [150] 
                                UNOP_AUX (0x299c010) multideref 
                                    OP (0x26611b8) null [7] 
                            UNOP (0x2883228) null [150] 
                                UNOP_AUX (0x299bfd0) multideref 
                                    OP (0x2661098) null [7] 
                        BINOP (0x28830c8) scmp [8] 
                            UNOP (0x2883178) null [14] 
                                PADOP (0x28831b0) gvsv  GV (0x18a8c0) *a 
                            UNOP (0x2883108) null [14] 
                                PADOP (0x2883140) gvsv  GV (0x2655320) *b 
        UNOP (0x2882f08) keys [11] 
            UNOP (0x2882f40) rv2hv [10] 
                PADOP (0x2882f78) gv  GV (0x2654ae0) *r