my $people = [
  h( name => "Alice", age => 21 ),
  h( name => "Bob", name => "Robert", age => 22 ),
];

print JSON::MultiValueOrdered->new(pretty=>1)->encode($people);