my $count = 0;
while (1) {
	my $test = eg();

	print $count++."\n";
	reportHash($test);
	reportScalar($test->{x});

	$test = undef;
}