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;