sub flattened_json { 
        my ($cur_node, $top_path, $put_here) = @_; 

        $top_path //= []; 
        $put_here //= {}; 

        if (ref $cur_node eq "HASH") { 
                flattened_json($$cur_node{$_}, [ @$top_path, $_ ], $put_here)
                        for sort keys %$cur_node; 
        } elsif (ref $cur_node eq "ARRAY") { 
                flattened_json($$cur_node[$_], [ @$top_path, $_ ], $put_here) 
                        for 0 .. @$cur_node - 1; 
        } else { 
                $$put_here{
                        join " ➔ ", 
                        map { $json_do->pretty(0)->encode($_) =~ s/➔/➔➔/gr } 
                        @$top_path
                } = $json_do->pretty(0)->encode($cur_node) =~ s/➔/➔➔/gr; 
        } 

        return $put_here; 
}

##</code><code>##

 
#!/usr/bin/perl -CSDA

use utf8; 
use Modern::Perl qw{2017}; 
use JSON; 
use Text::Unidecode;

require "./narz&#281;dzia";

my $f = flattened_json(JSON->new->relaxed->decode(do { local $/; <STDIN> })); 

print "$_ &#10132; $$f{$_}\n" for 
	sort { 
		lc(unidecode($a =~ s/ &#10132; ([0-9]+)/sprintf " &#10132; %09d", $1/ger)) 
		cmp 
		lc(unidecode($b =~ s/ &#10132; ([0-9]+)/sprintf " &#10132; %09d", $1/ger)) 
	} 
	keys %$f; 

##</code><code>##

 
#!/usr/bin/perl -CSDA

use utf8; 
use Modern::Perl qw{2017}; 
use JSON; 
use Text::Unidecode;

require "./narz&#281;dzia";

my $f = flattened_json(JSON->new->relaxed->decode(do { local $/; <STDIN> })); 

print "$_ &#10132; $$f{$_}\n" for 
	sort { 
		lc(unidecode($a =~ s/ &#10132; ([0-9]+)/sprintf " &#10132; %09d", $1/ger)) 
		cmp 
		lc(unidecode($b =~ s/ &#10132; ([0-9]+)/sprintf " &#10132; %09d", $1/ger)) 
	} 
	keys %$f; 

##</code><code>##

 


# cat json.txt 
{
   "menu" : {
      "header" : "SVG Viewer",
      "items" : [
         {
            "id" : "Open"
         },
         {
            "id" : "OpenNew",
            "label" : "Open New"
         },
         null,
         {
            "id" : "ZoomIn",
            "label" : "Zoom In"
         },
         {
            "id" : "OriginalView",
            "label" : "Original View"
         }
      ]
   }
}


# cat json.txt | ./json_to_paths
"menu" &#10132; "header" &#10132; "SVG Viewer"
"menu" &#10132; "items" &#10132; 0 &#10132; "id" &#10132; "Open"
"menu" &#10132; "items" &#10132; 1 &#10132; "id" &#10132; "OpenNew"
"menu" &#10132; "items" &#10132; 1 &#10132; "label" &#10132; "Open New"
"menu" &#10132; "items" &#10132; 2 &#10132; null
"menu" &#10132; "items" &#10132; 3 &#10132; "id" &#10132; "ZoomIn"
"menu" &#10132; "items" &#10132; 3 &#10132; "label" &#10132; "Zoom In"
"menu" &#10132; "items" &#10132; 4 &#10132; "id" &#10132; "OriginalView"
"menu" &#10132; "items" &#10132; 4 &#10132; "label" &#10132; "Original View"


# cat json.txt | ./json_to_paths | ./paths_to_json 
{
   "menu" : {
      "header" : "SVG Viewer",
      "items" : [
         {
            "id" : "Open"
         },
         {
            "id" : "OpenNew",
            "label" : "Open New"
         },
         null,
         {
            "id" : "ZoomIn",
            "label" : "Zoom In"
         },
         {
            "id" : "OriginalView",
            "label" : "Original View"
         }
      ]
   }
}