Select Code to Download

use strict;
use warnings;
...
} $initial;

print Data::Dump::dump ($initial), "\n";

[
  "note",
...
    ["item", "beans"],
  ],
]