use constant MONTHS => 'JanFebMarAprMayJunJulAugSepOctNovDec';
...
my $month_num = index(MONTHS, $month_str)/3;