Select Code to Download

foreach my $date (keys %counts){
  my $overallcount = $overallcounts{$date};
...
}

print Dumper \%counts;

$VAR1 = {
          '2017-09-30' => {
...
                            'a_average' => '45.45'
                          }
        };