use strict;
use warnings;

my @arr = qw(Apple Banana Tiger Lion Cat Turtle);
my $arr = join("|", @arr);

my $flag1 = ($arr =~ m/Apple|Turtle/) ? 1 : 0;
my $flag2 = ($arr =~ m/Lion|Tiger/) ? 1 : 0;

print "flag1:$flag1 flag2:$flag2\n";

$arr = undef;

#you can release the array too
undef @arr;