Select Code to Download

foreach my $x ( 10..99 ) {
   foreach my $y ( 10..999 ) {
...
       $fr[ $_ ][ $result[$_] ]++ foreach (0..$#result);
   }
}

my @fr;
$fr[$_] = [ (0)x10 ] foreach (0..$maxdigits);