$m{$_} = ++$i for qw[Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec];

##</code><code>##

( Jan => 1, Feb => 2, ...)