my @sorted_scores = sort { $b <=> $a } keys %HashA;