#!/usr/bin/perl

use strict;
use warnings;
use XML::Simple qw(:strict);

my $foo = '/root/Desktop/log.xml';
my $config = XMLin($foo, KeyAttr => 1, ForceArray => 1);

use Data::Dumper::Concise;
print Dumper($config);