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