sub x { undef my @x; # @x || return (); # return (@x ? @x : ()); } @y = x(); !defined(@y) && warn "y not defined";