my @dic= (
 ['animal source food','aliment d’origine animale'],
 ['balanced diet','régime alimentaire équilibré'],
 ['food','aliment'],
 ['nutrition','nutrition'],
 ['nutrition assessment','évaluation de l’état nutritionnel']
);

##</code><code>##

foreach my $row (@glossary){
	my $TermDBSource=@$row[0];
	my $TermDBTarget=@$row[1];
			
	if ($string=~ /$TermDBSource/){
		print "$TermDBTarget\n";
                last;
	}
}