$ perl -Mstrict -Mwarnings -E '
my @array =
   map {
       my( $k, $v ) = each %$_;
       ( $k ) x $v;
       } { A => 3 }, { T => 4 }, { C => 2 }, { G => 5 };
                                                        
say for @array;'
...