use strict;
use warnings;
use XML::Simple;use Data::Dumper;
my $file = './test.xml';

my %tmp = ( A => [ [1] ], B => 1);
XMLout(\%tmp,outputfile=>$file,noattr=>1);

%tmp = %{XMLin($file,forcearray=>['A'],noattr=>1)};
warn Dumper(\%tmp);

%tmp = %{XMLin($file,forcearray=>1,noattr=>1)};
warn Dumper(\%tmp);

##</code><code>##


$VAR1 = {
          'A' => [
                   {
                     'anon' => '1'
                   }
                 ],
          'B' => '1'
        };
$VAR1 = {
          'A' => [
                   [
                     '1'
                   ]
                 ],
          'B' => [
                   '1'
                 ]
        };


##</code><code>##

$VAR1 = {
          'A' => [
                   [
                     '1'
                   ]
                 ],
          'B' => '1'
        };