my @array = (1, 2);
print "found\n" if grep(3, @array);