#!/usr/bin/perl
my %days_in_month = (
   "Jan" => 31,
   "Feb" => 29,
   "Mar" => 31,
   "Apr" => 30,
   "May" => 31,
   "Jun" => 30,
   "Jul" => 31,
   "Aug" => 31,
   "Sep" => 30,
   "Oct" => 31,
   "Nov" => 30,
   "Dec" => 31 );

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