my @array = undef;

if(@array) {
 print "defined\n";
} else { 
 print "undefined\n";
}