Select Code to Download

                                                                      
+                                                           
#!/usr/bin/perl                                                       
+                                                                     
+                            
use strict;
...
print "\@arr2 has both"
    if grep {/^Sun$/} @arr2
    and grep {/^Moon$/} @arr2;

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