use strict;
use XML::Generator;
open (RPT, ">menu.xml");
my $gen = XML::Generator->new(
	'escape' => 'always', 'pretty' => 2);
my $xml = 
$gen->Menu(
	$gen->Course("Appetizers"),
	$gen->Items(
		$gen->Name("Soup"),
		$gen->Name("Salad")
	),
	$gen->Course("Entres"),
	$gen->Items(
		$gen->Name("Oysters"),
		$gen->Name("Pizza")
	)
);
print RPT "$xml";

##</code><code>##

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";