#!/usr/bin/perl
use warnings; 
use strict;
use Carp;
use File::Find;
use File::Spec::Functions qw( canonpath );
use XML::LibXML::Reader;
use Data::Dumper;
my @ARGV ="c:/main/folder"; 
die "Need directories\n" unless @ARGV;
my $Number;

my %hash;
find(
    sub {
        my $file = $_;
        # my $path = canonpath $File::Find::name;
		my $path =$_;

        return unless -f $path;
        return unless $file =~ /(_service\.xml)$/;

        extract_information($path, \%hash);
        return;
    },
    @ARGV
);

 
sub extract_information {
     my( $path,  $hash)=@_;

    my $ret = open my $xmlin, '<', $path;
    unless ($ret) {
        carp "Cannot open '$path': $!";
        return;
    }

    my $reader = XML::LibXML::Reader->new(IO => $xmlin);
    unless ($reader) {
        carp "Cannot create reader using '$path'";
        return;
    }

	while ( $reader->nextElement( 'Service' )) {
    my $Number = $reader->getAttribute( 'num');

    $reader->nextElement( 'Suppliermodules' );
    while ( $reader->nextElement( 'Hardwaremodule' )) {
        my $module = {};
        $module->{type} = $reader->getAttribute('Type');
        $module->{nr} = $reader->getAttribute('Nr');
			push @{$hash->{$Number}}, $module;

		}

     while ( $reader->nextElement( 'softwaremodule' )) {
        my $module1 = {};
        $module1->{service} = $reader->getAttribute('Service');
    

		 push @{$hash->{$Number}}, $module1;
   
   }
 $reader->nextElement( 'customermodules' );
    while ( $reader->nextElement( 'softwaremodule' )) {
        my $module2 = {};
        $module2->{cusservice} = $reader->getAttribute('Service');
      
			push @{$hash->{$Number}}, $module2;
		}
	
   
    }
    close $xmlin
        or carp "Cannot close '$path': $!";

    return;
}
 print   Dumper \%hash;


##</code><code>##

 'B7a'=>[
       {
        Service='ADC',
        path='....'
       }
       {
       Type='engine',
       Nr='18',
       Servicenum='1',
       path='....'
       }
      {
       Type='motor',
       Nr='7',
       Servicenum='1',
       path='....'
       }
       {
       Type='supply',
       Nr='1',
       Servicenum='1',
       path='....'
       }
      {
        Service='input',
        path='----'
       }
       {
        Service='signal',
        path='----'
       }
      ].....................