yet another variation:

my @lt = localtime();
print map ("month $_ is " . 1 + ($lt[4]-- % 12) . "\n",
( 0..-3 ));
[download]