Also any of these.

splice @array;

delete @array[keys @array];

(my$_x, @array) = 42;

(undef, @array) = 42;

(my@_x, @array) = @array;

(@array, @array) = @array;

pop @array for keys @array;

shift @array for keys @array;
[download]

In the above, replace keys @array with 0 .. @array - 1 if you have an older perl.

Update: you could also use crazy methods of looping instead of a simple for loop in some of the above.