$_ = 0 for my ($JAN, $FEB, $MAR); #etc