Select Code to Download

perl -lae "$r{$F[0]}+=$F[1]}{print qq($_\t$r{$_})for sort{$r{$b}<=>$r{
+$a}||$a cmp $b}keys %r" big1.txt big2.txt big3.txt >oneliner.tmp

sort{$r{$b}<=>$r{$a}||$a cmp $b}keys %r

sort{$r{$b}<=>$r{$a}}sort{$a cmp $b}keys %r

perl -MO=Terse -e "sort{$r{$b}<=>$r{$a}||$a cmp $b}keys %r"
LISTOP (0x299c080) leave [1] 
...
        UNOP (0x2882f08) keys [11] 
            UNOP (0x2882f40) rv2hv [10] 
                PADOP (0x2882f78) gv  GV (0x2654ae0) *r

perl -MO=Terse -e "sort{$r{$b}<=>$r{$a}}sort{$a cmp $b}keys %r"
LISTOP (0x2940c18) leave [1] 
...
            UNOP (0x2940ad0) keys [11] 
                UNOP (0x2940b08) rv2hv [10] 
                    PADOP (0x2940b40) gv  GV (0x26344d8) *r

perl -MO=Terse -e "sort{$r{$b}<=>$r{$a}}sort keys %r"
LISTOP (0x29e2518) leave [1]
...
            UNOP (0x29e26d0) keys [8]
                UNOP (0x29e2708) rv2hv [7]
                    PADOP (0x29e2740) gv  GV (0xec4098) *r

sort{$r{$b}<=>$r{$a}}sort{$a cmp $b}keys %r

sort{$r{$b}<=>$r{$a}}sort keys %r

use sort 'stable';