$Variables[$X]=$Year."-".$Months{$Month} ."-" . $Day ;

##</code><code>##

use strict; use warnings; use feature 'say';
use DateTime::Format::Strptime;

my $date = 'Apr 23 2017 11:56:42';

my $parser = DateTime::Format::Strptime->new( pattern => '%b %d %Y %T', on_error => 'croak' );

my $dt = $parser->parse_datetime( $date );

say $dt->strftime('%F');

##</code><code>##

2017-04-23