use strict; use warnings; my @arr1 = ("Sun", "Moon", "Venus", "Pluto", "Neptune"); ((grep/^(Sun|Moon)$/, @arr1) == 2) ? (print "True") : (print "False");