Help for this page

Select Code to Download

Select or download this

my @result = sort { $one{$b} <=> $one{$a} or $b <=> $a } keys %one;