use strict;
use warnings;
use XML::Simple;
use Data::Dumper;

my $xml = q~<?xml version="1.0" encoding="utf-8" ?>
<Config type="Tabs">
<Core active="true">
<CategoryID>a</CategoryID>
</Core>
<ShoeBank>
    <default>1</default>
    <Shoe>
        <Name>a</Name>
        <Image>a.jpg</Image>
        <MainClip>a.swf</MainClip>
        <ShoeConfigXML>a.xml</ShoeConfigXML>
    </Shoe>

    <Shoe>
        <Name>b</Name>
        <Image>b.jpg</Image>
        <MainClip>b.swf</MainClip>
        <ShoeConfigXML>b.xml</ShoeConfigXML>
    </Shoe>
    
</ShoeBank>
</Config>~;

print $xml,$/;

my $data = XMLin($xml);

print Dumper( $data );

foreach my $test (@{$data->{ShoeBank}{Shoe}}){
        print"Name:$test->{Name} \n";		
}