I think that, to do that with XML::Simple, you should rethink the data structure that you pass to XMLout.

Try and read XML::Writer POD and you'll see that it is so much easier for your needs...