while (<COMPFILE>) {
	$comptn = substr $_, 0,10;
	search_tn($comptn);
}


sub search_tn {