#!/usr/bin/perl
use List::Util qw(min max);


open(FH, $ARGV[0]) || die("Cannot open:$!");

while(<FH>) {

   if($_ =~ /\A(\S+)\t(\S+)\t(\S+)\t(\S+)\,(\S+)\,(\S+)/xmg) {

            #print "$1\t$2\t$3\t$4,$5,$6\n";

           if(($5 == $5) && ($6 == $6)) {
                               
                push @list, $4;

                $min = min @list;
                $max = max @list;
                
                if($4 == $max) {

                #print "$1\t$2\t$3\t$4,$5,$6\n";
                print "$max\n";
                }
           }
   }
 }