Select Code to Download

print "ok\n" if 2 == grep sub {
    my $x=shift;
    $_ eq $x and return 1 for @arr1;
    0;
}->($_), qw/Sun Moon/;