use strict;
use warnings;

my $tmp;

map { $_ = ++$tmp } my ($JAN,$FEB,$MAR,$APR,$MAY,$JUN,$JUL,$AUG,$SEP,$OCT,$NOV,$DEC);