use strict;

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

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