47 strokes with scalar returned and 45 strokes with list returned.
In reply to Re: Perl Golf-- testing array intersection by GrandFather in thread Perl Golf-- testing array intersection by BUU