my @Variables = ( $Map_Request_Date,$Map_Due_Date,$Map_Cutover_Date,$Map_Complete_Date,$Map_Approved_Date);
 foreach $Date_Ref (@Variables)
  {
   print $Date_Ref;
   $Date_Ref =~ s/ +/ /; #When day is a single digit it creates two white spaces
   ($Month,$Day,$Year,$Time)= split / /, $Date_Ref,4;
   my %Months = ( 'Jan' => '01',  'Feb' => '02',  'Mar' => '03', 'Apr' => '04', 
                  'May' => '05',  'Jun' => '06',  'Jul' => '07', 'Aug' => '08',
                 'Sep' => '09',  'Oct' => '10',  'Nov' => '11', 'Dec' => '12'  );
  
   if (length($Day) == 1) {$Day = "0$Day";}#Add 0 to the front of single digit days
  @Variable[$X]=$Year."-".$Months{$Month} ."-" . $Day ;

   $X=$X+1;
  }