Odd number of elements in anonymous hash

##</code><code>##


{
   "ARRAY(0x834963c)" : [
      {

##</code><code>##

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


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

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