@month = qw(january february march april may june july august september october november december);
$m = 1;
print $month[$m];  # prints "february"

##</code><code>##

$m = 1;
print +(1 .. 12)[$m];     # prints "2"

##</code><code>##

$m++;