use strict;
use warnings;

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

my $xml = XMLin('sample.xml');

print Dumper($xml);