my  ($JAN,$FEB,$MAR,$APR,$MAY,$JUN,$JUL,$AUG,$SEP,$OCT,$NOV,$DEC)=0
x 12;

##</code><code>##

my $JAN=$FEB=$MAR=$APR=$MAY=$JUN=$JUL=$AUG=$SEP=$OCT=$NOV=$DEC=0;

##</code><code>##

my  ($JAN,$FEB,$MAR,$APR,$MAY,$JUN,$JUL,$AUG,$SEP,$OCT,$NOV,$DEC)= (0) x 12;