Select Code to Download

my @dic= (
 ['animal source food','aliment d’origine animale'],
...
 ['nutrition','nutrition'],
 ['nutrition assessment','évaluation de l’état nutritionnel']
);

foreach my $row (@glossary){
    my $TermDBSource=@$row[0];
...
                last;
    }
}