my $m = 1; 
my $hash = { map { $m++ => $_ } qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/ };