Select Code to Download

User enters a list of food items
Program looks up group for food items
Program looks up rules to see if those groups can be combined or not.
Program reports to user

@food=(
        ['eggs', 'fish'],
...
);

print $food[3][0]; # prints beer

%food=( 'carbs' => ['breed', 'rice'],
        'tasty' => ['chocolate', 'pistacio'],
);
print $food{tasty}[1]; # prints pistacio