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

print $months[$realmonth-1];
[download]

.02

cLive ;-)