in reply to multiple variable initialization in one line
use strict; use warnings; my $tmp; map { $_ = ++$tmp } my ($JAN,$FEB,$MAR,$APR,$MAY,$JUN,$JUL,$AUG,$SEP,$ +OCT,$NOV,$DEC); [download]