in reply to Perl Golf-- testing array intersection

27 unless I'm making some mistake: 
sub match {
# 123456789012345678901234567    
  ++$c{$_}for@x;grep$c{$_},@y
}

[download]
Note that this assumes the sub will be called in scalar context

In Section Seekers of Perl Wisdom