my $ii=1;						for(my $k=1;$k<$lt;$k++){
	if ($k == $loc[$ii]){ 
	print "<span style=background-color:red;>" .$text[$k] . "</span>";
								$ii++; }
						}