Select Code to Download

my @arr;
my @subArr;
...
push(@subArr, \%hash);
push(@subArr, \%hash2);
push(@arr, \@subArr);

for my $i (0 .. $#arr){
    $subd = $arr[i];
...
        
    }
}

           
 while ($element = shift(@numOfWordArr)) {
              $termsFreq{$element} ++;
...
                $docTerms{$element}++;
              }
}

push(@docArray, \%termsFreq);

push(@classArr, \@docArray);

for my $i($#classArr) {
  print "subArr_ref: ".@{$classArr[$i]}."\n";
...
    print $csv $i."\n";
  }
}