$count += $seen{$_} * matchss($_, $y) for keys %seen;