What is the easiest or most effective way to convert month's abbreviation to a number in Perl? (ie "jan" to 1)

Question

If I import a library to use a method, would it be worth it? Does importing take up a lot of memory?

Answer 1

borrowed from here

%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
);

and to retrieve

$mon2num{"jan"}