Select Code to Download

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

my %xref2 = ("01" => "January",
             "02" => "Feburary",
...
             "12" => "December");
my ($year,$month,$day) = split(/-/,$input_date);
my $orig_date = "$xref2{$month} $year";