Perl 将月份转换为数字的哈希

我正在使用哈希将月份转换为数字

%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月不区分大小写。请告诉我如何做。

使用lc:

---

实际上，Month可以是Jan，Jan，Jan，所以我希望它不区分大小写。

for my $month (qw(Jan FEB mar)) {
    print "$month --> ", $mon2num{lc $month}, "\n";
}