my @array = qw( ciccio paperino palla gigio pluto );
my $TestReStr = join("|", map { "(${_})" } @array);
my $TestRe = qr/$TestReStr/;
my $test = 'pluto';
print "It matched!\n" if $test =~ $TestRe ;