Select Code to Download

[
   {
...
      "Lang4" : "one"
   }
]

use warnings;
use strict;
...
print "\nConvert back from Perl to JSON string, and pretty print:\n";

print $jobj->pretty->encode($perl);

Look Ma, a string of data!: {"a": [1, 2], "b": {"a": 1, "b": 2}}

...
      "b" : 2
   }
}