http://qs321.pair.com?node_id=264348


in reply to Code requested for array intersection count

Try using grep.
my @a1 = qw( A B ); my @a2 = qw( A B C D A D B A C ); foreach my $el(@a1){ my $count = grep /^$el$/, @a2; print "$el is in Array2 $count times\n"; }
produces
A is in Array2 3 times B is in Array2 2 times