#!/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";