#!/usr/bin/perl
use strict;
use warnings;

my %HoH = (
0 => {
    b  => 2,
    a  => 1, 
    e  => 5,
    c  => 3,
    d  => 4,
}
);

foreach my $key (sort { $HoH{0}{$a} cmp $HoH{0}{$b} } keys $HoH{0}) {
    my $value = $HoH{0}{$key};
    print $value->{$key}, "\n";
}
[download]

In the above hash of hashes (showed just entry for $HoH{0}), I'd like to sort the inside hash by values, so that I get output like this:

1 -> a
2 -> b
3 -> c
4 -> d
5 -> e
[download]

I know the loop is wrong... any help? Thanks a lot!