Select Code to Download

sub getCorpus {                
my %corpus;                    
...

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

sub getCorpus {                
my %corpus;                    
...
 use Data::Dumper;
 print Dumper \%counts;

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

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