my @sorted_words = map { $HashA{$_} } @sorted_scores;