note
ChOas
And just to do it one more different way :)
<code>
#!/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
</code>
<BR>
GreetZ!,<BR><UL>ChOas</UL>
<BR>
<FONT SIZE="1">print "profeth still\n" if /bird|devil/;</FONT>
264346
264346