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