Select Code to Download

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

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

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