#Given:
my $s5 ='CTGGGTATGGGT';           
my @a5 = qw(GTATG TGGGT);