my @findle = ("fever","febbre","la fièvre","koorts,") ;

I then loop through the array and perform a regular expression

for ($i=0; $i<$size; $i++)
         {
    if ($_ =~ /$findle[$i]/ ) {
        print "$_\n";
        $number++;
       
  
        #@lines =
   # print ("there are : " . $number);

      }
    
  }