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

##</code><code>##

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

##</code><code>##

my @sorted_line_nums = map { $HashB{$_} } @sorted_words;

##</code><code>##

print($HashC{$_}, "\n");
   foreach @sorted_line_nums;

##</code><code>##

print("$_\n");
   foreach map { $HashC{$HashB{$HashA{$_}}} }
           sort { $b <=> $a }
           keys %HashA;