#!/usr/local/bin/perl -w
use strict;
use Sysadm::Install qw(:all);
use JSON qw( to_json );

my $data = {};

for my $idx ( 1 .. 1_000_000 ) {
    $data->{ "X$idx" } = $idx;
}

print to_json( $data );