Select Code to Download

my %seen;
$seen{$_}=1 for @list1;
my @intersection = grep ++$seen{}==2, @list2;