while (my ($month, $total) = each(%total_counts)) {
    print "$month: $total\m" ;
  } ;