my @list = (10,11,12,13,14,15,17,18,22,23,24,25,26,27,28,29,30,31,32,33,34,35);

if (grep $_ == $x, @list) {
    print "Found $x\n";
}