#!/usr/bin/perl -w
use strict;
use XML::Simple;
use Data::Dumper;

my $xmlReader = XML::Simple->new();
my $xmlData = $xmlReader->XMLin(<<"__XML__" );
   <product description="watches" product_image="watches.jpg">
         <item_number>QWZ5671</item_number>
         <size>
            <color_swatch image="red_watches.jpg">Red</color_swatch>
            <color_swatch image="burgundy_watches.jpg">Burgundy</color
+_swatch>
         </size>
   </product>
__XML__
print Dumper(\$xmlData );

print "ITEM NUMBER: " , 
      $xmlData->{item_number},
      " COLORS:",
      map ( { $_->{content} ." "} @{ $xmlData->{size}->{color_swatch} 
+} ),
      "\n";
[download]

$VAR1 = \{
            'item_number' => 'QWZ5671',
            'description' => 'watches',
            'product_image' => 'watches.jpg',
            'size' => {
                      'color_swatch' => [
                                        {
                                          'content' => 'Red',
                                          'image' => 'red_watches.jpg'
                                        },
                                        {
                                          'content' => 'Burgundy',
                                          'image' => 'burgundy_watches
+.jpg'
                                        }
                                      ]
                    }
          };
ITEM NUMBER: QWZ5671 COLORS:Red Burgundy
[download]