#!/usr/bin/perl -w
use strict;
my @array_1 = qw/A B X/;
my @array_2 = qw/A B C D A D B A C/;
my %Seen;

++$Seen{$_} for @array_2;
print "$_ : ",exists $Seen{$_}||0,"\n" for @array_1
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.