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