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