Select Code to Download

use strict;
use warnings;
...

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

$VAR1 = {
...
                 ]
        };

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