I think I can do better: 33 in scalar context, else 35:
In reply to Re: Perl Golf-- testing array intersection by martin in thread Perl Golf-- testing array intersection by BUU