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}