use strict; if($best_X <= 110 && $block1 <=110 || $best_Y <= 110 && $block2 <= 110 )

{#keep counts of matches to check for unique match $counter++;}

if($counter == 1){ $tq = "unique_match" }elsif($best_X <= 100 && $block1 <= 100)

{ $pp = "best_match+TE" }elsif($best_X <= 100 && $position2 < 5)

{ if($block2 <= 50){ $pp2 = "best_match-TE"}

}else{next} if($best_Y <= 100 && $block1 >= 70){ $pz = "best_match+TE" }

elsif($best_Y <= 100 && $position1 >= 50)

{ if($block1 <= 50){ $pz2 = "best_match-TE"} }else{next}

} if($pp eq $pz){ $resH = "best_match+TE"; }

elsif($nTE2 eq $pp2 || $nTE2 eq $pz2){ $resH = "best_match -TE" }else{$resH = $tq}