foreach my $day (keys %days_in_month) {
   print "$days_in_month{$day} days hath $day\n";
}