[
   {
      "name" : "bob",
      "title" : "janitor",
      "email" : "",
      "iq" : "180",
      "favorite_food" : "wagyu steak"
   },
   {
      "name" : "joe",
      "title" : "software engineer",
      "email" : "",
      "iq" : "80",
      "favorite_food" : "raw hamburger"
   }
]

##</code><code>##

{
   "People" : [
      {
         "name" : "bob",
         "title" : "janitor",
         "email" : "",
         "iq" : "180",
         "favorite_food" : "wagyu steak"
      },
      {
         "name" : "joe",
         "title" : "software engineer",
         "email" : "",
         "iq" : "80",
         "favorite_food" : "raw hamburger"
      },
      {
         "name" : "sandy",
         "title" : "dishwasher",
         "email" : "",
         "iq" : "240",
         "favorite_food" : "filet mignon"
      },
      {
         "name" : "george",
         "title" : "software engineer",
         "email" : "",
         "iq" : "14",
         "favorite_food" : "tacos"
      }
   ]   
}

##</code><code>##

#!/usr/local/perl5/bin/perl
use strict;
use warnings;
use JSON::XS;
use File::Slurp qw( read_file );

open(my $fh, '<', '/tmp/test') or die $!; # contains list of file names

my @fields;
my $uuts = {};
while(<$fh>) {
    chomp;
    next if !-e "/tmp/files/$_.json";
    my $decoded = decode_json( read_file("/tmp/files/$_.json") );
    push @fields, $decoded;
}
$uuts->{People} = [ @fields ];
my $coder = JSON::XS->new->ascii->pretty->allow_nonref;
my $pretty_printed_unencoded = $coder->encode ($uuts);
print $pretty_printed_unencoded;

##</code><code>##

{
   "People" : [
      [
         {
            "name" : "bob",
            "title" : "janitor",
            "email" : "",
            "iq" : "180",
            "favorite_food" : "wagyu steak"
         },
         {
            "name" : "joe",
            "title" : "software engineer",
            "email" : "",
            "iq" : "80",
            "favorite_food" : "raw hamburger"
         }
      ],
      [
         {
            "name" : "sandy",
            "title" : "dishwasher",
            "email" : "",
            "iq" : "240",
            "favorite_food" : "filet mignon"
         },
         {
            "name" : "george",
            "title" : "software engineer",
            "email" : "",
            "iq" : "14",
            "favorite_food" : "tacos"
         }
      ]
   ]
}