$tidc=(keys %tidc);
print "Number of unique threads referenced is: $tidc\n";