Select Code to Download

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

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