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

##</code><code>##

use strict;
use warnings;