my %month;
my @month = qw(Jan Feb Mar Apr May June July Aug Sept Oct Nov Dec);

@month{0..$#month} = @month;