my $r = 'A,T,G,C';