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

use Time::Piece;

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';

for my $Date_Ref ($Map_Request_Date, $Map_Due_Date, $Map_Cutover_Date,
                  $Map_Complete_Date, $Map_Approved_Date
) {
    say $Date_Ref;
    my $tp = 'Time::Piece'->strptime($Date_Ref, '%b %d %Y %H:%M');
    $Date_Ref = $tp->ymd;
}
say for $Map_Request_Date, $Map_Due_Date, $Map_Cutover_Date,
        $Map_Complete_Date, $Map_Approved_Date;