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