##

#!/usr/bin/perl --

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

my $dir = cwd();
opendir(DIR, ".");
my @files = grep(/\.xml$/,readdir(DIR));
closedir(DIR);

foreach my $file (@files) {


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

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

for my $sub ( sort keys %{ $doc->{???????} } ){
 $rowCount = $tellerR;	
 $worksheet->Cells($rowCount, $colCount)->{Value} = $sub;
  
    for my $elem ( sort keys %{ $doc->{??????}{$sub} } ){


# More simalar onces ?? Or...
	
       for my $element ( @{ $doc->{???????}{$sub}{$elem} } ){
      
      }
   }

}

}