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