package Day1::Part2;

use 5.36.0;

use List::Util qw/ sum pairmap /;
use List::MoreUtils qw/ part zip /;

sub solve($l1,$l2) {
    my %occur;

    $occur{$_}++ for @$l2;

    no warnings qw/ uninitialized /;
    sum map { $occur{$_}*$_ } @$l1;
}

1;