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