#!/usr/bin/perl -w

use strict;

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

my $xmlData;

  my $xmlReader = XML::Simple->new();
  $xmlData = $xmlReader->XMLin();
  # print Dumper( %{$xmlData} );
  
## ACCESS REPEATING NODE VALUES - 

 
__DATA__

   <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>