I showed you how to do this in your first post related to this project: Re^3: Which XML module to use for this scenario?

As long as you know how to work with perl complex data structures (perldsc), you can get the exact output you want.