@x = @{$a};
foreach my $i (@x) {
        print"$i\n";
        undef $i;
}


##</code><code>##

my $a = ['a', 'b', 'c'];
foreach  (@{$a}) {
        my $i = $_;
        print"$i\n";
        undef $i;
}