Why are you using a hash?

my @months = qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/;

... $months[$month-1] ...
[download]