@arr1 = qw(Sun Moon Venus Pluto Neptune);

##</code><code>##

@arr1 = ("Sun", "Moon", "Venus", "Pluto", "Neptune");

##</code><code>##

if ((grep {$_ eq 'Sun'} @arr1) && (grep {$_ eq 'Moon'} @arr1)) {
    print "We have both a sun and a moon - yay!\n";
}
else {
    print "Something is missing...\n";
}