in reply to Re^4: Failed array attemp
in thread Failed array attemp

There's this, but it's straying into seriously unreadable territory:

push @z, (grep { my $x = $_; grep { $x == $_ } @y } @x) ? 'y' : 'n';

[download]
perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

In Section Seekers of Perl Wisdom