Select Code to Download

for my $penta (keys %totalProbability) {
    print "$totalProbability{$penta}, $totalCounts{$penta}, ...\n";
}

my %stats;
while (<FREQ>) {
...
      $stats{$pent}{pentTotal}  += $$h{pentTotal};
   }
}