sub lexique 
{
foreach (@lexiques)
{
		my @lexiks = split/\t/, $_;
		chomp @lexiks;
		my $motlexique = $lexiks[0];
		my $genre = $lexiks[4];
		my $nombre = $lexiks[5];
		if ($motlexique eq $thewordimsearching)
		{
			#Do some things here
			last;
		}
	}
}