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


sub search_tn {
	my $comptn = shift;