Select Code to Download

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

push(@docArray, \%termsFreq);

push(@classArr, \@docArray);

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