my @set1 = ...;

my %h1 = map { $_ => 0 } @set1;
my %h2;
( $h1{ $_ } // $h2{ $_ } )++ for @list;