in reply to Re^2: Perl Golf-- testing array intersection
in thread Perl Golf-- testing array intersection

Nice! I bid 38.

sub match {
#          1         2         3
# 12345678901234567890123456789012345678
  $_++for@c{@x},@d{@y};grep$d{$_},keys%c
}

[download]

Makeshifts last the longest.

In Section Seekers of Perl Wisdom