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