while (my ($length,$month) = each %days_in_month)
{
    print "$length days hath $month\n";
}