foreach $Title (keys %{$HASH}) {

print $OUT "<recipe>".$Title."</recipe>\n";

my $abstract=shift @{$HASH->{$Title}};

print $OUT "<abstract>".$abstract."</abstract>\n";

my $procedure=pop @{$HASH->{$Title}};

foreach my $ingredient (@{$HASH->{$Title}}) {

	print $OUT "<ingredient>".$recipe."</ingredient>\n";
}
print $OUT "<procedure>".$procedure."</procedure>\n";
}