use Data::Dump::Streamer;
my $xml = XML::Simple->new();
my $d = $xml->XMLin("sample.xml",ForceArray => 1, KeepRoot => 1);
Dump $d;