$ perl -del
 > x defined @a
''
 > @a = (1..3)
 > x defined @a
1
 > @a = ()
 > x defined @a
1