#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my $Map_Request_Date  = 'Jan 1 2017 12:00';
my $Map_Due_Date      = 'Jan 31 2017 12:00';
my $Map_Cutover_Date  = 'Feb 28 2017 23:59';
my $Map_Complete_Date = 'Mar 1 2017 12:01';
my $Map_Approved_Date = 'Dec 31 1999 0:01';

my @Variables = ($Map_Request_Date, $Map_Due_Date, $Map_Cutover_Date,
                 $Map_Complete_Date, $Map_Approved_Date);

my $X = 0;
for my $Date_Ref (@Variables) {
    say $Date_Ref;
    $Date_Ref =~ s/ +/ /; #When day is a single digit it creates two white spaces
    my ($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'  );

    $Day = "0$Day" if 1 == length $Day;
    $Variables[$X++] = "$Year-$Months{$Month}-$Day";
}
say for @Variables;