http://www.perlmonks.org?node_id=1101829

Jeri has asked for the wisdom of the Perl Monks concerning the following question:

Hi,

I would like to load an array with...
20- characters 'A'
20- characters 'T'
30- characters 'G'
30- characters 'C'

I've written

my @arr = ("A" x 20, "T" x 20, "C" x 30, "G" x 30);

but it puts

$arr[0]=AAAAAAAAAAAAAAAAAAAA $arr[1]=TTTTTTTTTTTTTTTTTTTT $arr[2]=CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC $arr[3]=GGGGGGGGGGGGGGGGGGGGGGGGGGGGGG

instead of having 0-99 indices.

Does anyone know how to load this with minimal syntax? I've done this before, but I can't remember how to do it.

Thanks