However, sorting a hash in reverse by value as opposed to by key is as simple as:

my %hash = (
  'A' => 5,
  'B' => 4,
  'C' => 3,
  'D' => 2,
  'E' => 1
);

for my $key (sort { $hash{$b} <=> $hash{a} } keys %hash) {
    #...
}
[download]

I believe will give you the desired effect. Try perldoc -q sort on the command line for more details.