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'], ['cheese', 'lard'], ['breed', 'rice'], ['beer', 'wine'], ); print $food[3][0]; # prints beer #### %food=( 'carbs' => ['breed', 'rice'], 'tasty' => ['chocolate', 'pistacio'], ); print $food{tasty}[1]; # prints pistacio