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

my $xml = XML::Simple->new();
my $data = $xml->XMLin("data1.xml");

print Dumper($data);