Now I need to find out with the help of grep if the array

[snip]

I am actually looking for the above queries solution in single statement.

A few considerations:

• please stop friggin' putting your posts in pre tags: they're discoraged at the Monastery and certainly not useful here to present some simple text;
• nobody seems to have noticed yet, but why do you insist that you "need" to use grep and that you want a single statement? This strongly smells like homework!
• Thanks to stuff like do, quite about anything in Perl can be a "single statement".

To illustrate the last point, the following does use grep and is a single statement:

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