my $aa = 'A' . 'T' . 'C' . 'G'x5003;