#!/usr/bin/perl
use strict;
use XML::Simple;
use Data::Dumper;

my $file = 'files/data.xml';
my $xs1 = XML::Simple->new();

my $doc = $xs1->XMLin($file, forcearray => 1);

foreach my $key (keys (%{$doc->{client_system}})){
print $doc->{client_system}->{$key} . "\n";
print $doc->{client_system}->{$key}->{'business_area'} ? ;
}