Simpler and faster:

for my $d ( sort { $hash{$a}{desc} cmp $hash{$b}{desc} }
                keys %hash )
{
   

}
[download]