#!/usr/bin/perl

use strict;
use warnings;

my @printables = map chr, 33 .. 126;

# random string 30 characters long
sub randstr { join '', map { $printables[rand(@printables)] } 1..30 }

use Devel::Size qw(size total_size);

sub commas {
	my $str = ''.reverse shift;
	return scalar reverse join ',', grep length, split /(.{3})/, $str
}

my %hash = ( randstr => randstr );
for (0..5) {
	my $count = scalar keys %hash;

	print commas($count), " elements: ", commas(total_size\%hash), " bytes\n";

	for (1..9 * $count) {
		my $s = randstr;
		$hash{$s} = randstr;
	}
	
}

my $count = scalar keys %hash;
print commas($count), " elements: ", commas(total_size\%hash), " bytes\n";