Select Code to Download

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

my @sorted_words;
foreach (@sorted_scores) {
   push(@sorted_words, $HashA{$_};
}