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