my @mon = qw(
   January   Feburary   March
   April     May        June
   July      August     September
   October   November   December
);

...

$month = $mon[$damonth-1];