undef @x;

use Data::Dumper;
print Dumper(\@x);

!defined(@x) && print "not defined\n";