Select Code to Download

use strict;
use warnings;
...
XMLout(\%tmp,outputfile=>$file);
%tmp = %{XMLin($file,forcearray=>1)};
warn Dumper(\%tmp);

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