my @hITS;
while (<CBLAT>) {
    chomp;
    my ($score, $qID) = ( split /\t/ )[ 0, 9 ];
    push @hITS, [ $_, $score, $qID ];
}

@hITS = sort {
    $b->[1] <=> $a->[1]
        ||
    $a->[2] cmp $b->[2]
} @hITS;

for (@hITS) {
    print $_->[0], "\n";
}