Select Code to Download

@x = @{$a};
foreach my $i (@x) {
...
        undef $i;
}

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