my $seq = "CTTCGAATT"; # in this case length of 9

##</code><code>##

$VAR = ["CTT", "CGA", "ATT"];