#!/usr/bin/perl
use strict;
use warnings;
use POSIX 'strftime';
my @now = localtime();
my $todaysday = strftime("%d", localtime());
my $mth = strftime("%m" , localtime());
my $secs = strftime("%S" , localtime());
my $mins = strftime("%M" , localtime());
my $hr = strftime("%H" , localtime());
my $year = strftime("%Y" , localtime());
my $dtime = "$year-$mth-$todaysday $hr:$mins";
my %most_recent;
my $header = <DATA>;
while ( my $line = <DATA> ) {
    chomp $line;
    my ($col1,$date_and_time,$col2,$col3,$col4) = split( /,/, $line );
    $date_and_time =~ s/^\s+$//g;
    my $dtime = $date_and_time;
    if ( not defined $most_recent{$col1}{$col2}
        or $most_recent{$col1}{$col2} lt $dtime )
    {
        $most_recent{$col1}{$col2} = $dtime;
    }
}
print "Most recent:\n";
foreach my $col1  ( keys %most_recent ) {
    foreach my $col2 ( keys %{$most_recent{$col1}} ) {
             print "$col1, $col2, $most_recent{$col1}{$col2}, \n";
	  #print "$col2,$col1,$col3,$col4,\n";
    }
}

 __DATA__
 
 LONDO,2015-01-02 11:35,GE04_TDP,ted,fu
 LONDO,2015-01-02 13:15,GE03_TDP,ted,fu
 LONDO,2015-01-02 15:42,GE03_TDP,ted,fu
 LONDO,2015-01-02 15:22,GE04_TDP,ome,ful
 LONDO,2015-01-02 17:15,GE03_TDP,omp,ful
 LONDO,2015-01-02 17:32,GE04_TDP,omp,ful
 LONDO,2015-01-02 20:44,CW02,et,ful
 LONDO,2015-01-02 19:26,CW03,et,ful
 LONDO,2015-01-02 20:25,CW01,let,pped
 LONDO,2015-01-02 19:57,CW04,let,pped
 LONDO,2015-01-02 19:24,EXCHP,let,ucc
 LONDO,2015-01-02 19:25,EXCHP,let,ucc
 LONDO,2015-01-02 19:43,GE03,let,ucc
 LONDO,2015-01-02 20:41,GE04,Co,ucc
 LONDO,2015-01-02 21:33,GE03_TDP,Co,ucc
 LONDO,2015-01-02 21:17,EXCHP,Co,ucc
 LONDO,2015-01-02 23:24,EXCHDP,Co,ucc
 LONDO,2015-01-02 23:27,EXCHDP,Co,ucc
 LONDO,2015-01-03 01:20,EXCHDP,il,02
 LONDO,2015-01-03 01:11,EXCHDP,ro