require JSON::PP; JSON->import('-support_by_pp');
my %test = (1 => 'foo',2 => 'bar');
say "Ergebnis: ".JSON::PP->new->utf8->sort_by(sub {$JSON::PP::a <=> $JSON::PP::b})->escape_slash()->encode(\%test);