#!/usr/bin/perl -w

use XML::Simple;
use Data::Dumper;


$xml =
' <file>
<cat1>
    <sub1>
        <sub-sub1/>
    </sub1>
</cat1>
<cat2/>
<cat3>
    <sub1/>
</cat3>
</file>
';
my $c = XMLin($xml);
# substitute filename for $xml here

print Dumper($c);
__END__

##</code><code>##

$VAR1 = {
          'cat1' => {
                      'sub1' => {
                                  'sub-sub1' => {}
                                }
                    },
          'cat2' => {},
          'cat3' => {
                      'sub1' => {}
                    }
        };