#!/usr/bin/perl
use warnings;
use strict;

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

my $s = '<foo><color>red</color><color>white</color><color>blue</color></foo>';
print $s,"\n";
my $parsed = XMLin($s);
print Dumper($parsed);

##</code><code>##

<foo><color>red</color><color>white</color><color>blue</color></foo>
$VAR1 = {
          'color' => [
                       'red',
                       'white',
                       'blue'
                     ]
        };

##</code><code>##

print $_,"\n" for ( @{$parsed->{color}} )