my @rows;

... # rest of code

push @rows, { ... };

...

my $json = encode_json \@rows;