Help for this page

Select Code to Download

Select or download this

my %set1 = map { $_ => 1 } @array1;
my %set2 = map { $_ => 1 } @array2;

my %intersection = grep $set1{$_}, keys %set2;