Select Code to Download

my @fields;
my $uuts = {};
...
    push @fields, $decoded;
}
$uuts->{People} = [ @fields ];

my $uuts;
while (<$fh>) {
...
    next if ! -e "/tmp/files/$_.json";
    push @{$uuts->{People}}, @{decode_json(read_file("/tmp/files/$_.js
+on"))};
}

$ perl -Mstrict -Mwarnings -le '
    use Data::Dumper;
...
                        }
                      ]
        };