my $x = { map {; $_ + 1 => (qw/Jan Feb Mar/)[$_] } 0 .. 2 }
[download]

Perl 6 solution:

my $x = hash <Jan Feb Mar ...> Z 1..12;
[download]

You can emulate that in Perl 5 with the zip() function from List::MoreUtils