So what's the input data that's causing you troubles, and what kind of troubles do you have? A run time error? If so, which?

My magic crystal ball tells me that you might need some ForceArray options as explained in the XML::Simple documentation, but my crystal ball is not the most reliable diagnosis tool out there.

Update: Don't you find the repetitions in your program a bit painful? Perl has loops, arrays and hashes - they can save you lots of typing, and make your code more general.