$IDS{$id}++;
...
if ($A+$B == 2 && (exists $IDS{$TI})){