Select Code to Download

use strict;
use warnings;
...

use Data::Dumper;
print Dumper \%counts;

$VAR1 = {
          '20180101' => {
...
                        }
        };