my @foo = qw(foo bar baz);
@foo = ();
print "\@foo is defined.\n" if defined @foo;

my @bar = qw(foo bar baz);
undef @bar;
print "\@bar is defined.\n" if defined @bar;