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