use strict;
use warnings;

my @data;

while (<DATA>) {
    my ($date, $time, $data1, $data2) = split;
    my $key = $date . $time;

    $key =~ s{^(\d\d)/(\d\d)/(\d\d\d\d)(\d\d):(\d\d):(\d\d)}{$3$1$2$4$5$6};

    push @data, [ $key, join(',', $date, $time, $data1, $data2) ];
}

print map { "$_->[1]\n" } sort { $a->[0] <=> $b->[0] } @data;

__DATA__
01/14/2014 23:44:14 A Y
01/14/2014 23:44:12 B Y
01/14/2014 23:44:13 C X
01/14/2014 23:44:12 D X