my $month_num = index( 'Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec', $month_str)/4;