foreach $i (@b) {
    $h{$i} = 0;
    foreach $u (@a) {
        $h{$u}++;
    }
}