@a = (0) x 143;    # 143 zeroes

##</code><code>##

	@a = (0) x @a;     # every element set to zero

##</code><code>##

	undef @a;

##</code><code>##

	undef @a;
	$z = $a[3] + 12;
	print $z;