Select Code to Download

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

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

$m++;