#!/usr/bin/perl -w
use strict;

my @findle = ("fever","febbre","la fièvre","koorts");
my $number = 0;
for my $element (@findle) {
    if (/\Q$element\E/) {
        print "$_\n";
        $number++;
        #@lines = # print ("there are : " . $number);
    }
}