for my $entry ( @{ $data->{termEntry} } ) {
    for (@{ $entry->{langSet} }) {
        printf "term: %s\n", $_->{termGrp}{term};
    }
}