use 5.010;
use JSON::MultiValueOrdered;
my $json = JSON::MultiValueOrdered->new;
my $data = $json->decode(q( {"a":1,"b":2,"b":3} ))
or die $json->error;
say $json->encode($data);
use 5.010;
use JSON::MultiValueOrdered;
my $json = JSON::MultiValueOrdered->new;
my $data = $json->decode(q( {"a":1,"b":2,"b":3} ))
or die $json->error;
say $json->encode($data);