#!/usr/bin/perl -w
use strict;
use Benchmark qw(cmpthese);

my @list= <DATA>;

sub st {
    map  { $_->[0] }
    sort { $a->[1] cmp $b->[1] }
    map  {
           m!(\d\d)/(\d\d)/(\d{1,4}):([\d:]+)$!;
           [ $_, $3 . $2 . $1 . $4 ]
         } @list;
}

sub tye {
    @list[
        map { unpack "N", substr($_,-4) }
        sort
        map {
            join "",
                ( $list[$_] =~
                    m[(\d+)/(\d+)/(\d+):([\d:]+)]
                )[2,1,0,3],
                pack "N", $_;
        } 0..$#list
    ];
}

print "Same results.\n"   if  join("",tye()) eq join("",st());


cmpthese( -3, { aST=>\&st, bST=>\&st, aTye=>\&tye, bTye=>\&tye } );
__END__
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:09/29/2003:14:49:54
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:09/30/2003:12:24:58
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:08/30/2003:14:24:58
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:08/29/2003:14:49:54
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:08/28/2002:14:24:58
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:09/28/2003:14:24:58
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:08/30/2002:12:24:58
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:08/29/2002:12:49:54
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:08/28/2003:12:24:58
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:08/30/2003:12:24:58
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:09/30/2003:14:24:58
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:08/28/2003:14:24:58
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:09/28/2003:14:24:58
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:09/29/2003:12:49:54
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:09/29/2003:14:49:54
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:09/29/2003:12:49:54
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:08/29/2002:14:49:54
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:09/28/2003:12:24:58
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:09/28/2003:12:24:58
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:08/29/2003:12:49:54
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:08/28/2002:12:24:58
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:09/30/2002:12:24:58
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:08/30/2002:14:24:58
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:09/30/2002:14:24:58
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:09/29/2003:14:49:54
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:09/30/2003:12:21:58
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:08/30/2003:14:21:58
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:08/29/2003:14:49:54
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:08/28/2002:14:21:58
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:09/28/2003:14:21:58
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:08/30/2002:12:21:58
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:08/29/2002:12:49:54
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:08/28/2003:12:21:58
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:08/30/2003:12:21:58
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:09/30/2003:14:21:58
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:08/28/2003:14:21:58
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:09/28/2003:14:21:58
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:09/29/2003:12:49:54
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:09/29/2003:14:49:54
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:09/29/2003:12:49:54
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:08/29/2002:14:49:54
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:09/28/2003:12:21:58
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:09/28/2003:12:21:58
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:08/29/2003:12:49:54
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:08/28/2002:12:21:58
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:09/30/2002:12:21:58
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:08/30/2002:14:21:58
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:09/30/2002:14:21:58
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:09/29/2003:14:49:34
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:09/30/2003:12:24:38
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:08/30/2003:14:24:38
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:08/29/2003:14:49:34
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:08/28/2002:14:24:38
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:09/28/2003:14:24:38
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:08/30/2002:12:24:38
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:08/29/2002:12:49:34
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:08/28/2003:12:24:38
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:08/30/2003:12:24:38
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:09/30/2003:14:24:38
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:08/28/2003:14:24:38
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:09/28/2003:14:24:38
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:09/29/2003:12:49:34
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:09/29/2003:14:49:34
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:09/29/2003:12:49:34
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:08/29/2002:14:49:34
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:09/28/2003:12:24:38
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:09/28/2003:12:24:38
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:08/29/2003:12:49:34
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:08/28/2002:12:24:38
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:09/30/2002:12:24:38
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:08/30/2002:14:24:38
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:09/30/2002:14:24:38
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:09/29/2003:14:49:34
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:09/30/2003:12:21:38
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:08/30/2003:14:21:38
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:08/29/2003:14:49:34
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:08/28/2002:14:21:38
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:09/28/2003:14:21:38
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:08/30/2002:12:21:38
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:08/29/2002:12:49:34
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:08/28/2003:12:21:38
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:08/30/2003:12:21:38
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:09/30/2003:14:21:38
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:08/28/2003:14:21:38
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:09/28/2003:14:21:38
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:09/29/2003:12:49:34
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:09/29/2003:14:49:34
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:09/29/2003:12:49:34
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:08/29/2002:14:49:34
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:09/28/2003:12:21:38
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:09/28/2003:12:21:38
G: CCCC1 :ADD : ORDER PROCESSED : *** OK ***:08/29/2003:12:49:34
G: CCCCC :MODIFY : ORDER PROCESSED : *** OK ***:08/28/2002:12:21:38
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:09/30/2002:12:21:38
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:08/30/2002:14:21:38
G: CCCCC-01 :ADD : ORDER PROCESSED : *** OK ***:09/30/2002:14:21:38