Select Code to Download

use strict;
use warnings;
...

print Dumper \%counts;

$VAR1 = {
          '2017-09-04' => {
...
                            'a' => 4
                          }
        };

$VAR1 = {
          '2017-09-04' => {
...
                            'a' => 57.14
                          }
        };