#!/usr/bin/env perl

use strict;
use warnings;
use v5.10;

use XML::LibXML;

my $file = 'myxml.xml';
my $dom = XML::LibXML->load_xml(location => $file);

foreach my $lang_set ($dom->findnodes('/DB/termEntry/langSet')) {
    my $lang = $lang_set->getAttribute('xml:lang');
    foreach my $term_grp ($lang_set->findnodes('./termGrp')){
        say '$lang : '. $term_grp->findvalue('./term');
    }
}

exit;