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); #### $VAR1 = { 'A' => [ { 'anon' => '1' } ], 'B' => '1' }; $VAR1 = { 'A' => [ [ '1' ] ], 'B' => [ '1' ] }; #### $VAR1 = { 'A' => [ [ '1' ] ], 'B' => '1' };