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


in reply to Code requested for array intersection count

And just to do it one more different way :)
#!/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

GreetZ!,

print "profeth still\n" if /bird|devil/;