(grep defined, @array) ? print "It has at least one non-undefined element\n" : print "It is effectively empty\n";