use strict;
use warnings;

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

my $file = "data.xml";

my $xml = XMLin($file);

print Dumper($xml);