use strict;
use warnings;

my @array = qw( ciccio paperino palla gigio pluto );
my $test = 'pluto';
if (grep { $test eq $_ } @array ) {
        print "It matched!\n";
}