$ perl -Mstrict -E 'my $aref = [ "", undef ]; say scalar ( grep { length $_ } @{ $aref || [] } ) ? "True" : "False";'
False