#!/usr/bin/env perl -l

use strict;
use warnings;

use Time::Piece;

my @data;

while (<DATA>) {
    my ($date, $time, $data1, $data2) = split;
    my $key = Time::Piece->strptime("$date $time", '%m/%d/%Y %H:%M:%S')->epoch;
    push @data, [$key, "$date,$time,$data1,$data2"];
}

print for map { $_->[1] } 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

##</code><code>##

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