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

my @findle = ("fever","febbre","la fièvre","koorts");
my $size = @findle;
my $number = 0;
for (my $i=0; $i<$size; $i++) {
    if ($_ =~ /$findle[$i]/ ) {
        print "$_\n";
        $number++;
        #@lines = # print ("there are : " . $number);
    }
}