So really you want to split your strings on the underscore and then sort by the first part, and if they are equal, by the second part? The Schwartzian Transform helps you to do this:

my @sortedFoods = 
    map { $_->[0] }
    sort { $a->[1] cmp $b->[1] or ($a->[2]//'') cmp ($b->[2]//'') } 
    map { [ $_, split /_/ ] } @Foods;
[download]

Note that this sorts the pieces like strings and ignores the fact that some parts of them are numbers. So abc10 comes before abc2.

Update: added parentheses to take into account precedence of //. Thanks choroba!

Warning: pay proper attention to the precedence of //:

perl -MO=Deparse,-p -e '$a->[1] cmp $b->[1] or $a->[2]//"" cmp $b->[2]
+//""'
[download]

See also Re^2: Do people find warning for undef with string compare useful?.

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Thanks a Lot ..choroba