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

##</code><code>##

<r>length of gene sequence array 66
0 1 2 3 4 5 14 15 16 17 18 32 33 34 35 36 37 48 49 50 51 52 60 61 62 63 64 65
GAATTCCCWGGGAATTCCCWGGGAATTC
<r>length of gene sequence array 66
0 1 2 3 4 5 14 15 16 17 18 32 33 34 35 36 37 48 49 50 51 52 60 61 62 63 64 65
G
<r>length of gene sequence array 66

0 1 2 3 4 5 14 15 16 17 18 32 33 34 35 36 37 48 49 50 51 52 60 61 62 63 64 65
G

I want 
 

< r>length of gene sequence array 66 
0 1 2 3 4 5 14 15 16 17 18 32 33 34 35 36 37 48 49 50 51 52 60 61 62 63 64 65
GAATTCCCWGGGAATTCCCWGGGAATTC
< r>length of gene sequence array 66 
0 1 2 3 4 5 14 15 16 17 18 32 33 34 35 36 37 48 49 50 51 52 60 61 62 63 64 65
GAATTCCCWGGGAATTCCCWGGGAATTC
< r>length of gene sequence array 66 
0 1 2 3 4 5 14 15 16 17 18 32 33 34 35 36 37 48 49 50 51 52 60 61 62 63 64 65
GAATTCCCWGGGAATTCCCWGGGAATTC