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