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


in reply to Loading multiple identical variables in array with multiplication variable

I.e., 

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

[download]

Update: Or perhaps: 

my @arr =
  map { ($_->[0]) x $_->[1] }
  [A => 20], [T => 20], [C => 30], [G => 30]
  ;

[download]

In Section Seekers of Perl Wisdom