#!/usr/bin/perl
 use warnings;
 use strict;
 use XML::Simple;
 use Carp;
 use File::Find;
 use File::Spec::Functions qw( canonpath );     
 use Data::Dumper;

 my @ARGV ="C:/Main/work";die "Need directories\n" unless @ARGV;
 find(
  sub {
     return unless ( /(_service\.xml)$/ and -f );
     extract_info();
    return;
  },
 @ARGV
  );

sub extract_info {
         my $path= $_;

my $xml=XMLin($path);
   my $xmldata_services = $xml->{Service};  
   my %dataservices;
   for my $xmldata_service (@$xmldata_services) {

    my %service = (
        description     => $xml_service->{Des},
        name            => $xml_service->{Name},
        num              => $xml_service->{NUM},
    );

     $service{sw} = _maybe_list( $xmldata_service->{Customers}{Software} );
    $service{hw} = _maybe_list( $xml_service->{Suppliers}{Hardware} );
    $service{sw} = _maybe_list( $xml_service->{Suppliers}{Software} );
     $dataservices{ $service{id} } = \%service;
 }

 print Dumper \%dataservices;

  }
 sub _maybe_list {
 my $maybe = shift;
 return ref $maybe eq 'ARRAY' ? $maybe : [$maybe];
 }