my $r = join',','a'..'z';

##</code><code>##

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