Is the code in your note a copy of the actual code you ran? The reason I ask is that your month hash is misnumbered. The hash has two month 8's.
****sigfilesigfilesigfilesigfilesigfilesigfilesigfilesigfile
Perl has one Great Advantage and one Great Disadvantage:
It is very easy to write a complex and powerful program in three lines of code.
********************************************
The Needs of the World and my Talents run parallel to infinity.