(defined $foo->[0]) ? print "TRUE\n" : print "FALSE\n";