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