You should try using each:

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

ÅßÅ×ÅßÅ "It is a very mixed blessing to be brought back from the dead." -- Kurt Vonnegut