%a = map {($_=>1)} @a;
@duplicates = grep { exists $a{$_} } @b;