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";
}
[download]

A is in Array2 3 times
B is in Array2 2 times
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.