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