$hITS[0]{score} = $score;
$hITS[0]{qID} = $Id;
for (@hITS){</p
        if ($_->{qID} !~ /$id/ && $_->{score} <= $score){</p>
        $_->{qID} =$id1 ; $_->{score} = $score1;