my @months=qw/JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC/;
my %whatever;
$whatever{$_}=0 for @months;

##</code><code>##

@whatever{@months}=(0) x @months;