my @months = qw(January February March April May June July August September October November December);
print $months[$realmonth-1];