use utf8;
use strict;
use warnings;

use JSON;
use Data::Dumper;

my $in;
{
    open(my $file, "<", "./data/data-raw-dump.json") or die "Can't open data-raw-dump.json";
    local $/;
    $in = <$file>;
    close $file;
}

my $data = decode_json($in);

# my $data = @($data_raw->(data)(children));

print Dumper($data);

my @list = ($data);

print "$data";

# foreach my $values (@list){
#     foreach my $value (@$values) {
#         print "Value =\t\tValue:\t" "$value->{?}->{'subgroup'}" "\n";
#     }
#             }

# open(my $out, ">", "./data/out-json-test.json") or die "Can't open out-json-test.json";
# close $out or die "$out: $!";