gistfile1.txt

$ perl6 -MJSON::Fast -e 'say to-json [<foo bar ber>, { :meow<foo>, :foo([<bar>, {:2ber, :moor([<foo>])}]) }]'
[
  [
    "foo",
    "bar",
    "ber"
  ],
  {
    "foo": [
      "bar",
      {
        "moor": [
          "foo"
        ],
        "ber": 2
      }
    ],
    "meow": "foo"
  }
]
$ perl6 -e 'say to-json [<foo bar ber>, { :meow<foo>, :foo([<bar>, {:2ber, :moor([<foo>])}]) }]'
[
  [
    "foo",
    "bar",
    "ber"
  ],
  {
    "foo" : [
      "bar",
      {
        "moor" : [
          "foo"
        ],
        "ber" : 2
      }
    ],
    "meow" : "foo"
  }
]