my @posns = split m{}, $tests[ $idx ]-[ $subidx ];
             $results[ $idx ]-[ $subidx ] ++