#!/usr/bin/perl                                                                                                                                                        
use strict;
use warnings;

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

print "\@arr1 has both"
    if grep {/^Sun$/} @arr1
    and grep {/^Moon$/} @arr1;

print "\@arr2 has both"
    if grep {/^Sun$/} @arr2
    and grep {/^Moon$/} @arr2;