in reply to Perl Golf-- testing array intersection

47 strokes with scalar returned and 45 strokes with list returned.

<Reveal this spoiler or all in this thread>
DWIM is Perl's answer to Gödel

In Section Seekers of Perl Wisdom