use strict;
use XML::Generator;
open (NEWRPT, ">newmenu.xml");
my %myhash = (	"Appetizers" => ["Soup", "Salad"],
		"Entres" => ["Oysters", "Pizza"]
	);

my $newgen = XML::Generator->new(
	'escape' => 'always', 'pretty' => 2);
my $newxml =
$newgen->Menu(
	foreach my $course (keys %myhash) {
		$newgen->Course("$course"),
		$newgen->Items(
		my @items = @{$myhash{$course}};
		foreach my $item (@items) {
			$newgen->Name("$item")
		})
});
print NEWRPT "$newxml";