#!/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);
    }
}

##</code><code>##

#!/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);
    }
}

##</code><code>##

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

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