Although the practical effects in this case are harmless, but you definitely dont' want to do a test like you have:

while ($mm <= "12");
[download]

"12" is a string and you really want a number like 12. Perl will magically change the string "12" into the number 12.

Cheers.

-------------------------------------
Nothing is too wonderful to be true
-- Michael Faraday