$ perl -Mstrict -wE '
> open my $rand, q{<}, \ <<EOD or die $!;
> 2 32 321
> 2 13 213
> 3 31 312
> EOD
> 
> my @tests =
>    map [ split ],
>    <$rand>;
> 
> open my $fh, q{<}, \ <<EOD or die $!;
> 0  a b h
> 1  - r z
> 3  u - u
> 4  r x r
> 5  r t r
> 6  r r r
> 7  r r r
> 8  r r r
> EOD
> 
> my @results;
> while ( <$fh> )
> {
>     my @cols = split;
>     foreach my $idx ( 0 .. $#tests )
>     {
>         foreach my $subidx ( 0 .. $#{ $tests[ $idx ] } )
>         {
>             my @posns = split m{}, $tests[ $idx ]->[ $subidx ];
>             $results[ $idx ]->[ $subidx ] ++
>                if scalar @posns == grep { q{r} eq $cols[ $_ ] } @posns;
>         }
>     }
> }
> 
> say qq{@$_} for @results;'
4 3 3
4 5 3
5 5 3