sub h {
  tie my %hash, 'Tie::Hash::MultiValueOrdered';
  while (my ($k, $v) = splice @_, 0, 2) {
    $hash{$k} = $v;
  }
  \%hash;
}

##</code><code>##

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

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