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