Select Code to Download

cat lill01.txt  

...
perl    94
dromedary       70
camel   50

perl -MO=Deparse -lane "$r{$F[0]}+=$F[1]}{print qq($_\t$r{$_})for sort
+{$r{$b}<=>$r{$a}||$a cmp $b}keys %r"

...
    print "$_\t$r{$_}" foreach (sort {$a cmp $b unless $r{$b} <=> $r{$
+a};} keys %r);
}
-e syntax OK