my @tt=($T_one,$Ta,$rr);

foreach my $string (@tt) {  
    @loc=();
    @text=();

    my $strLength = length($string); 
    my @stringArr = split //, $string;
 
    print "<\br>";  
    print "Length of Gene Sequence Array:    $strLength\n";
            
    foreach my $pattern (@patterns){
        print knuth_morris_pratt($string, $pattern), "\n";
    }
                
    @loc = sort {$a <=> $b} @loc;

    print "</br>";
    print "@loc";
    print "</br>";

    my $i=0;
    foreach my $k (0 .. ($strLength-1)) {
        print $i;
        if ($k == $loc[$i]){ 
            print "<span style=background-color:red;>$text[$k]</span>";
            $i++;
        } else { 
            print $text[$k];
        }
    }
    
    print "</br>";

}