my $sub = "CGAGCGTTGACGCNNAGCTAGT";
my @bases = split //, $sub;