perl - 月を数値に変換するハッシュ

Question

ハッシュを使用して月を数値に変換しています。

%mon2num = qw(
    jan 1  feb 2  mar 3  apr 4  may 5  jun 6
    jul 7  aug 8  sep 9  oct 10 nov 11 dec 12
);

ここでは、すべての月の 1 月、2 月、..12 月の大文字と小文字を区別しないようにしたいと考えています。方法を教えてください。