0 Пользователей и 1 Гость просматривают эту тему.
foreach $food (sort { $food_color{$a} cmp $food_color{$b} } keys %food_color) { print "$food is $food_color{$food}.\\n";}