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);