#!/usr/bin/perl

#use strict;
use XML::Simple;
use Data::Dumper;

my $filename = 'C:/perlfiles/request1.xml';

my $library  = XMLin($filename,
    ForceArray => 1
  );

#print Dumper ($library) ;
my $count=0;

foreach my $key ( keys %{$library->{place}} )
{
   if ($key eq 'SouthAfrica')
   {   
     foreach my $loopback ( @{$library->{place}{$key}{dataName}} )
      {
        if ($loopback eq 'English')
        {
           print "key = $key; loopback = $loopback\n" ;
        }
      }
   }
}