my %xref = ( 'January'  => "01",
             'Feburary' => "02",
              .
              .
              .
              'December' => "12");
my ($month, $year) = split(/\s+/,$my_input_date);
my $insert_date = $year. "-" . $xref{$month} . "-01";