#!/usr/bin/perl
use strict;

use XML::Simple;
use Data::Dumper;

my $xml_obj = XML::Simple->new(ForceArray => ['tables']);

# xml
my $xml = $xml_obj->XMLin('test.xml');

print Dumper($xml);
exit;