my $count;
foreach my $name (@allnames) {
  $count++ if grep { $_ eq $name } @somenames;
}