my %month_number;
@month_number{qw/Jan Feb Mar Apr May ... Dec/} = (0 .. 11);

print $month_number{Jan};
# 0