in reply to multiple variable initialization in one line

This way requires no counting of the elements. 
$_ = 0 for my ($JAN, $FEB, $MAR); #etc

[download]
You might very well want to use a hash, though, as blazar suggested.
Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom