#!/bin/bash

for i in {1..15}; do
perl -Mstrict -wle'
use strict;
use warnings;

my %addr;
my $count = 0;
my $tries = 2**$ARGV[0];
for my $try (1..$tries) {
	my %h;
	for (reverse 1..1000) {
		$h{$_} = { value => $_};
		$count++;
	}

	$addr{$_}++ for values %h;
}

my $reused = scalar grep $addr{$_}>1, keys %addr;
my $addrs  = scalar keys %addr;
print "Address of reference reused $reused times, all addresses $addrs, in $count tries";' $i
done