in reply to Help with Parsing XML output

Since you are pressed for time, I'd suggest changing your XMLin to: 
 my $xml = new XML::Simple (KeyAttr=>[],  
                            ForceArray => [ 'category' ],);

[download]
And keeping your "foreach my $cat(.." intact.

        Profanity is the one language all programmers know best.

In Section Seekers of Perl Wisdom