$rank .= " " . $key;

##</code><code>##

@sorted = sort { $b <=> $a } keys %rank;