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

##</code><code>##

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

##</code><code>##

open(INFILE1, $FILENAME1);

##</code><code>##

open my $input1FH, q{<}, $FILENAME1
   or die qq{open: < $FILENAME1: $!\n};