my %months = qw(
       0 => Jan
       1 => Feb
       2 => Mar
);

##</code><code>##

print "$months{$month}\n";
Output = Jan