foreach $Title (keys %{$HASH}) {
   my $abstract  = shift @{$HASH->{$Title}};
   my $procedure = pop @{$HASH->{$Title}};
   print $OUT "<title>$Title</title>\n",
              "<abstract>$abstract</abstract>\n",
              (map { "<recipe>$_</recipe>\n" }@{$HASH->{$Title}}),
              "<procedure>$procedure</procedure>\n";
}