foreach my $month (sort keys %total_counts) {
    print "$month: $total_counts{$month}\n" ;
  } ;