Hi,

Thanks for your reply!

I am sorry that I didn't tell you that.

<my %dic;

while (<DIC>) {
    
    chomp;

    my($columnA, $columnB) = split("\t", $_);

    $glossary{$columnA} = $columnB;
}
[download]

The DIC file is a tab-delimeted file. For instance,

word word    parola parola
word    parola
[download]