# Given:
my $s6 = 'AGGAACTTGCCTGTACCACAGGAAG'; 
my @a6 = qw( CAGGA AGGAA );