in reply to On-the-fly hashref

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

[download]

In Section Seekers of Perl Wisdom