# Declaration
my $m = 1;
my %MONTH = map { $_ => $m++ } qw( Jan Feb Mar Apr May ... );

# Later in the code:
$month = sprintf '%02d', $MONTH{$1};