#!/usr/bin/perl
use strict;
use warnings;

use XML::Simple;
my $XmlEncoded="ciao.tmex";
my $xml = XML::Simple->new();

my $LanguageName1="German";
my $LanguageName2="Italian";

my $data = $xml->XMLin($XmlEncoded);
		
for my $entry ( @{ $data->{Entry} } ) {
	my $Term1 = $entry->{$LanguageName1}->{Term};
	my $Term2 = $entry->{$LanguageName2}->{Term};
	print "My terms: $Term1 - $Term2\n";
}