Help for this page
$m{$_} = ++$i for qw[Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec];
( Jan => 1, Feb => 2, ...)