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