use Data::Dumper;
use List::Util ();

sub any (&@) { my $x = &List::Util::first; defined $x }

my @x = (1..3, undef, 5..10);  # undef is false
print Dumper(any { !$_ } @a);