my @months = qw( 
    Jan Feb Mar Apr May Jun 
    Jul Aug Sep Oct Nov Dec
);
my $new_mo = $months[$month];