use strict;

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

print "JAN:  $JAN\n";
print "DEC:  $DEC\n";

##</code><code>##

JAN:  0
Use of uninitialized value in concatenation (.) or string at P:\test379.pl line 7.
DEC: