my $s1 = "1,0,CTGCCACCGCTGT";
my $s2 = "1,5,ACCG";