Select Code to Download

sub h {
  tie my %hash, 'Tie::Hash::MultiValueOrdered';
...
  }
  \%hash;
}

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

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