Select Code to Download

use warnings;
use strict;
my @a = (1,2,3);
undef @a;
print "a=",@a if @a;

@a = (1,2,3);
for my $v (@a) {
...
}
print 'Still exist $v? ';
print "No!\n" unless defined $v;