use strict;
use warnings;

my @arr = qw(Apple Banana Tiger Lion Cat Turtle);

my $flag1 = (grep { /Apple|Turtle/ } @arr) ? 1 : 0;
my $flag2 = (grep { /Lion|Tiger/ } @arr) ? 1 : 0;

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