#!/usr/bin/perl
# Created by Ben Okopnik on Tue Jun  8 22:47:05 EDT 2010
use warnings;
use strict;
# use Term::Menu::Hierarchical;
use Term::Menu::Hierarchical;
use Tie::IxHash;	# Keep the top-level menu items in order

my $a = 0;
# my %data = (
tie(my %data, 'Tie::IxHash', 
	Breakfast => {
		'Milk + Cereal'	=> undef,
		'Eggs Benedict'	=> 'Classic hangover fix.',
		'French Toast'	=> 'Nice and easy for beginners.'
	},
	Lunch	=>	{
		'Mushroomwiches'=> 'A new take on an old favorite.',
		'Sloppy Janes'	=> 'Yummy and filling.',
		'Corn Dogs'		=> 'Traditional American fare.'
	},
	Dinner	=>	{
		Meat		=>	{
			'Chicken Picadillo'	=>  'Mmm-hmm!',
			'Beef Stroganoff'	=>  'Is good Russian food!',
			'Turkey Paella'		=>  'Home-made goodness.'
		},
		Vegetarian	=> {
			'Asian Eggplant'	=>	'Tasty.',
			'Broccoli and Rice'	=>	'Fun.',
			'Chickpea Curry'	=>  'Great Indian dish!',
			Desserts			=>	{
					'Almond Tofu'	=>	'Yeah, I know - sounds weird...',
					'Milk Shake'	=>	'Comfort food!'
			}
		}
	},
	NumList	=>	join "\n", map { $a++ } 1..150
);

menu(\%data);