Select Code to Download

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

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