$counts{$name}{$_} += ($masks{$_} | $letters) =~ /M/ for @unique;

##</code><code>##

    for my $label (@unique)
      {
      print "$masks{$label}   |   $letters\n";
      $counts{$name}{$label} += ($masks{$label} | $letters) =~ /M/;
      }