my @CHIMP = <CBLAT>;#CBLAT hold the file to be processed</p>
                my %hITS;
                my $score;
                my @bestHITS;
                if(!@CHIMP){</p>
                my $nm = "no_match";
                 next}
                my $cblast = shift @CHIMP;#process blat output lines(rows)</p>
                my @row = split(/\t/,$cblast);</p>
                unshift @{$hITS{$score}},{MATCH=>$row[0],qID=>$row[9],cLINE=>$cblast};#keep score,query id and whole lines in hash</p>
                @{$hITS{$score}} = sort {$b->{MATCH} <=> $a->{MATCH} || $a->{qID} cmp $b->{qID}} </p>@{$hITS{$score}};#sort by match score/query ID</p>
                        foreach my $key (@{$hITS{$score}}){
                        my $hits = $key->{cLINE};

                        push @bestHITS, $hits;#keep sorted lines in array
                        last;}