my %month = (
        Jan => 0,
        Feb => 1,
        ...
);

# ...

$month = $month{$month};  # Could stand to use better names