my @sorted_words = @HashA{@sorted_scores};

##</code><code>##

   push(@sorted_words = $HashA{$_};

##</code><code>##

   push @sorted_words, $HashA{$_};