@array = ();

@array = undef;   # Doesn't actually zero out the array

undef @array;

$#array = -1;

splice(@array,0);

pop @array while @array;

shift @array while @array;