use strict;
use warnings;
use Data::Dump::Streamer;
use XML::Simple;

my $str = do {local $/; <DATA>};
my %data = %{XMLin ($str)};

Dump (\%data);