Select Code to Download

my $file="service.xml";
 my $xml = new XML::Simple;
  my $data = $xml->XMLin("$file", ForceArray =>['Service','SystemReact
+ion','Customers','Suppliers','SW','HW'],);
print Dupmer ($data);

$var1={

...
                ]
        };