my $t1 ='CCCATCTGTCCTTATTTGCTG';  
my @ar1 = qw(ATCTG-3 ATTTG-13);

my $t2 ='ACCCATCTGTCCTTGGCCAT';   
my @ar2 = qw(CCATC-2);

my $t3 ='CCACCAGCACCTGTC';        
my @ar3 = qw(CCACC-0 CCAGC-3 GCACC-6);

my $t4 ='CCCAACACCTGCTGCCT';      
my @ar4 = qw(CCAAC-1 ACACC-4);

my $t5 ='CTGGGTATGGGT';           
my @ar5 = qw(GTATG-4 TGGGT-7);

my $t6 = 'AGGAACTTGCCTGTACCACAGGAAG'; 
my @ar6 = qw( CAGGA-18 AGGAA-19 );

my $t7 = 'CAGGACTTGCCTGTACCACAGGAAG'; 
my @ar7 = qw( CAGGA-18  );

my $t8 = 'CAGGATTTGAGGAAGTACCACAGGAAG'; 
my @ar8 = qw( CAGGA-18 AGGAA-19 );