Have you seen Data::DumpXML? It's *kind of* what you're talking about, but the resultant XML isn't quite like what you wrote.

XML::Simple is another option. Its XMLout function takes a hash ref as an argument and dumps it in XML.