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