my @data = qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/;
my %h;
@h{1..12} = @data;
my $x = \%h;

##</code><code>##

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

# ...but this does not get me a hashref :-\
my $x = \%{ map { $_ + 1 => (qw/Jan Feb .../)[$_] } 0 .. 11 };