Hashes nach assoziierten Werten sortieren

[diab]

Hallo,
der folgende Ausschnitt stammt aus dem O'Reilly Perl Kochbuch:

foreach $food (sort { $food_color{$a} cmp $food_color{$b} }
                keys %food_color)
{
    print "$food is $food_color{$food}.\n";
}

Meine Frage dazu: Kann man das auch so gestalten, dass die Sortierung nicht nach Alphabet sondern nach Wert erfolgt (Die assoziierten Werte sind integer-Zahlenwerte).

Vielen Dank!

_________
 /----diab \ /         M.\