#!/usr/bin/perl -w

use strict;
use 5.24.1;
use Data::Dumper qw(Dumper);
use XML::Mini::Document;

$Data::Dumper::Terse=1;

my($xml)='<insert valid xml string here>';

my($hash_ref)=&convert_xml_to_hash($xml);

my $data=eval($hash_ref);

say Dumper($data);

exit;

sub convert_xml_to_hash
{
	my($xml)=(@_);
	my($hash)={};

	if($xml)
	{
		my($xml_object)=XML::Mini::Document->new();
		$xml_object->parse($xml);

		my($output)=$xml_object->toHash();
		$hash=Dumper($output);
	}
	return($hash);
}