use strict;

my $input = "quotes.txt"; 

my ($quote,$time);
my $actualquote;
my $actualtime;

my $hour;
my $minute;
my $second;

my $picksecond;

open(DATAFILE, "$input") || die("Can't open $input:!\n");

$picksecond =1;
while (<DATAFILE>) {
       
        chomp $_;
        ($quote,$time) = split(",", $_);
        
	($hour,$minute,$second) = split(":",$time);
	
	if ($second==0) 
		{$actualtime=$time; $actualquote=$quote;$picksecond=99;}

        if ($second>$picksecond)
		{$picksecond=$second;$actualtime=$time; $actualquote=$quote;}

	print "$quote\t$time\t$second\n";
	

}
print "$picksecond\t$actualtime\t$actualquote\n";