#!/usr/bin/env perl

use strict;
use warnings;

use Crypt::Digest::SHA256 qw[sha256_hex];
use Carp;

# Make a fake zipcode list
print "Writing ZIP codes\n";
open(my $zipfh, '>', 'zipcodes.txt') or croak($!);
for(my $i = 10_000; $i <= 99_999; $i++) {
    # Fake a city name ;-)
    my $cityname = sha256_hex($i);
    print $zipfh "$i;$cityname\n";
}
close $zipfh;

# Make a fake data file
print "Writing data\n";
open(my $datafh, '>', 'census.txt') or croak($!);
for(my $i = 0; $i < 1_000_000; $i++) {
    my $zip = int(rand(89_999)) + 10_000;
    my $cityname = sha256_hex($zip);
    my $population = int(rand(1_000_000));
    print $datafh "$cityname;$population\n";
}
close $datafh;
print "Done\n";