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