Testing perl memory use on hash with many short lived keys

hashfun.pl

#!/usr/bin/perl

use strict;
use warnings;

my $h;
my $i = 0;

while (1) {
	$h->{$i} = 1;
	delete $h->{$i-1};
	$i++;
}

exit;
__END__