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