use strict;
use warnings;
while (1) {
	my %hash;
	@hash{0..10000} = (0..10000);
}


##</code><code>##

Terminating on signal SIGINT(2)
Terminating on signal SIGINT(2)
Attempt to free unreferenced scalar: SV 0x188d214 at C:\Perl\Scripts\mytest.pl line 9.