my %trans; # a translation table.
    $trans{'current'} = {
        eng => 'Current',
        ca => 'Courant',
        . . .
    };

##</code><code>##

    @glossary_words = keys %trans;