Why not just put them in an array:

my @months = qw(Jan Feb Mar Apr ...)
[download]

Then just use $months[$mon].