Another way to do it would be to use regex look-aheads in alternation (Sun followed by Moon or Moon followed bu Sun) and do a match against the array interpolated into a string.

use strict;
use warnings;

my @arrays = (
   [ qw{Sun Moon Venus Pluto Neptune} ],
   [ qw{Jupiter Mercury Moon Io} ],
   [ qw{Europa Moon Ganymede Sun Earth} ],
   [ qw{Venus Sun Saturn Titan} ],
   );

my $rxSunAndMoon = qr
   {(?x)
       (?:\bSun\b(?=.*\bMoon\b))
       |
       (?:\bMoon\b(?=.*\bSun\b))
   };

foreach my $raRocks ( @arrays )
{
    print qq{Array: @$raRocks\n};
    print
       qq{@$raRocks} =~ $rxSunAndMoon
       ? qq{       Found Sun and Moon\n}
       : qq{       No match\n};
}
[download]

The output is

Array: Sun Moon Venus Pluto Neptune
       Found Sun and Moon
Array: Jupiter Mercury Moon Io
       No match
Array: Europa Moon Ganymede Sun Earth
       Found Sun and Moon
Array: Venus Sun Saturn Titan
       No match
[download]

I hope this is of interest.

Cheers,

JohnGG