Select Code to Download

    #?  $HoFlg1=(Query_id=>{$Query_id},Subj_id=>{$Subj_id},bit_score=>
+{$bit_score},Flag=>$Flag1);
    #?  $HoFlg2=(Query_id=>{$Query_id},Subj_id=>{$Subj_id},bit_score=>
+{$bit_score},Flag=>$Flag2);
        $HoFlg1->{$Query_id}->{$Subj_id}->{$bit_score}=$Flag1;
        $HoFlg2->{$Query_id}->{$Subj_id}->{$bit_score}=$Flag2;

##### For each Query_id find top bit score
sub largest_key {
...
###For each Query_id find top bit score - using => hash creation ;
foreach my $key1 (keys %{$HoFlg2})
        my $highest_bit=( reverse sort { $HoFlg2{$a}->{bit_score} <=> 
+$HoFlg2{$b}->{bit_score}} keys(%HoFlg2) )[0];