#!/usr/bin/perl

use XML::Trivial;

my $xml = XML::Trivial::parse('<inventory>
  <item1>
    <itemName>jeans501</itemName>
    <itemId>j501ab</itemId>
    <countryOrgin>mexico</countryOrgin>
  </item1>
  <item2>
    <itemName>jeans502</itemName>
    <itemId>j502ab</itemId>
    <countryOrgin>mexico</countryOrgin>
  </item2>
</inventory>');

foreach ($xml->{inventory}->ea) {
    print $_->en. "\n";
    foreach ($_->ea) {
	print $_->en. " ".$_->ts."\n"
	    if $_->ts ne '';
    }
}