It would be nice to see something this small, simple, and often used put into perl itself at some point. Bob knows I've written a subrotine like the one above more than a few times. Yes, there are modules, but something with constants as basic as this should be accessible without the overhead of calling a module or writing a subroutine just to get a 12 member array (and a minor leap year calc). my ($0.02);