Perl JSON perserve order

gistfile1.pl

use Tie::IxHash;
use JSON;
use Data::Dump qw/dump/;


my $json = '{"test":"test","test2":"test2","test4":"test4","test3":"test3"}';

my $obj_parser_sub = \&JSON::PP::object;
*JSON::PP::object = sub {
        tie my %obj, 'Tie::IxHash';
        $obj_parser_sub->(\%obj);
};

$ret = decode_json($json);
print dump($ret);

------
{
  # tied Tie::IxHash
  test  => "test",
  test2 => "test2",
  test3 => "test3",
  test4 => "test4",
}

works well

You just saved me a lot of time with this ! Thank you :)