in reply to Perl Golf-- testing array intersection

27 unless I'm making some mistake: