#!/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);
}

##</code><code>##

...

'billing_address' => {
     'province' => 'New Brunswick',
     'city' => 'Moncton',
     'company_nam' => '',                   # Should be company_name
     'phone' => '5065551212',
     'address_' => '',                      # Should be address_2
     'country_code' => 'CA',
     'first_name' => 'Joe',
     'address_1' => '123 Somestreet',
     'email' => 'someone@somewhere.com',
     'country' => 'Canada',
     'postal_code' => 'E4E 4E4',
     'last_name' => 'Blow',
      'province_code' => 'NB'
     },
     'fee_line' => '',                      # should be fee_lines
     'shipping_tax' => '0.00',
...