my $count = do {
    my %seen;
    @seen{@somenames} = ();
    my $c;
    foreach my $name ( @allnames ) {
      $c++ if exists $seen{$name};
    }
    $c;
};