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