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