my $seq = 'ATGATGTGATGA';