#!/usr/bin/perl

my $xml_str1 = '<List>
    <Events WID="1">
        <Event Confirmed="Y">
            <Country>USA</Country>
        </Event>
        <Event Confirmed="Y">
            <Country>UK</Country>
        </Event>
        <Event Confirmed="Y">
            <Country>CANADA</Country>
        </Event>
    </Events>
    <Events WID="2">
        <Event Confirmed="Y">
            <Country>MEXICO</Country>
        </Event>
        <Event Confirmed="Y">
            <Country>INDIA</Country>
        </Event>
        <Event Confirmed="Y">
            <Country>CHINA</Country>
        </Event>
    </Events>
</List>';


parse_xml($xml_str1);


sub parse_xml
{
    use XML::LibXML;
    no warnings;
    my $Country = ();
    my @List = ();

    my $parser = XML::LibXML->new();
    my $doc    = $parser->parse_string($_[0]);

    foreach my $ca_isins ($doc->findnodes('/List//Events/Event'))
    {
    
        my ($titleCountry) = $ca_isins->findnodes('./Country');
        $Country = $titleCountry->to_literal . "\n";

        my ($widValue) = $ca_isins->findvalue('../../@Wid');

        $Country = $titleCountry->to_literal . "|" . $widValue . "\n";
        push (@List, $Country);

    }

    print "@List";
}