$a = ['a', 'b', 'c'];
for $i (@{$a}) {
    undef $i;
}

##</code><code>##

@x = @{$a}
-OR-
@x = (@{$a})