Firstly, @arr1 = ("Sun" "Moon" "Venus" "Pluto" "Neptune"); is wrong, and will throw an error if you try use it. Your either need to do:

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

or..

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

Secondly, to answer your question - here is one way to do it:

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";
}
[download]

--Darren