my @months = qw/January February March April May June July August September October November Decemeber/;
# arrays are zero-indexed, so subtract one to 
# get from the month number to the array index:
$monnm = $months[$mnth - 1];