#!/usr/bin/perl --

use strict;
use warnings;
use XML::Simple;


my $xs1 = XML::Simple->new();
my $doc = $xs1->XMLin($file, keyattr=>['????'], ForceContent=>1, ForceArray=>1);

use Data::Dumper;
local $Data::Dumper::Indent=1;

print Dumper($doc);


for my $sub ( sort keys %{ $doc->{????} } ){
 
  
    for my $elem ( sort keys %{ $doc->{????}->{$sub} } ){

	}
}