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

  DB<231>  any { $_ eq 0 } @a
 => ""

  DB<232>  any { $_ eq 5 } @a
 => 1

  DB<233> @a
 => (1, 2, 3, 4, 5)