Select Code to Download

my $found = any { $_ eq 'something'    } @array_of_strings;
my $found = any { /\bsomething\b/      } @array_of_strings;
my $found = any { $_ == 42             } @array_of_numbers;
my $found = any { $_->isa('obj_type')  } @array;
my $found = any { $_->can('tupitar')   } @array;