Select Code to Download

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

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