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