Select Code to Download

my $count = do {
    my %seen;
...
    }
    $c;
};

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