gistfile1.txt

#!/usr/bin/perl

=encoding UTF-8
=cut

=head1 DESCRIPTION

=cut

# common modules
use strict;
use warnings FATAL => 'all';
use feature 'say';
use utf8;
use open qw(:std :utf8);

use DDP;
use Carp;
use File::Slurp;
use JSON::PP;

# global vars

# subs

# main
sub main {

    my $json_coder = JSON::PP
        ->new
        ->pretty
        ->canonical
        ->indent_length(4)
        ;

    my $i = 1;
    my $j = 1;

    my $data = {
        one => [
            0..5,
            'a',
        ],
        two => {
            foo => { map { $_ => $i++ } 'a'..'z' },
            bar => { map { $_ => $j++ } 'a'..'z' },
        },
    };

    write_file('one.json', $json_coder->encode($data));

    $data->{one}->[6] = 'b';
    $data->{two}->{foo}->{g} = 19;

    write_file('two.json', $json_coder->encode($data));

}
main();
__END__