Help for this page

Select Code to Download


  1. or download this
    my $count = do {
        my %seen;
    ...
        }
        $c;
    };
    
  2. or download this
    my $count;
    foreach my $name (@allnames) {
      $count++ if grep { $_ eq $name } @somenames;
    }