Just having fun with the spirit of TIMTOWTDI:

my @mon = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
my %mon = map { $mon[$_] => $_ } (0..$#mon);
[download]

Not as effiecient, but fun. :)

Jeff

R-R-R--R-R-R--R-R-R--R-R-R--R-R-R--
L-L--L-L--L-L--L-L--L-L--L-L--L-L--