#!/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