Select Code to Download

intersection( \%array1, \%wisconsin, \%rockford )

push @comp, { map { $_ => 1 } @array1 };

use strict;
use List::Compare;
...
my $lc = List::Compare->new( @comp );

my @intersection = $lc->get_intersection;