$ cat ./arr
#!/usr/bin/perl

my @arr = (100 .. 110);

my $elem = 11;

print +(grep { /$elem/ } @arr) ? 'Yes' : 'No';
$ ./arr
Yes$