Not directly related, but a more compact month parse would be:

$i_num_month = { Jan => 0, Feb => 1, Mar => 2, Apr => 3,
                 May => 4, Jun => 5, Jul => 6, Aug => 7,
                 Sep => 8, Oct => 9, Nov => 10, Dec => 11 }
               ->{ $i_month };
[download]