RosettaCodeData/Task/JSON/Perl-6/json.pl6

use JSON::Tiny;

my $data = from-json('{ "foo": 1, "bar": [10, "apples"] }');

my $sample = { blue => [1,2], ocean => "water" };
my $json_string = to-json($sample);