#!/usr/bin/perl use strict; use warnings; use 5.010; require JSON; JSON->import('-support_by_pp'); my %test = (1 => 'foo',2 => 'bar'); say "Ergebnis: ".JSON->new->utf8->sort_by(sub {$JSON::PP::a <=> $JSON::PP::b})->escape_slash()->encode(\%test);