sub foo { return undef; }

my @x = foo();
if (@x) { print "foo() succeeded\n" } else { print "foo() failed\n";