DB<125> @a=(0)x10
 => (0, 0, 0, 0, 0, 0, 0, 0, 0, 0)

  DB<126> sub any (&@) { 
           my $cr=shift; 
           defined first { &$cr } @_ 
           }

  DB<127> any {$_==0} @a
 => 1

##</code><code>##

  DB<138> sub any (&@) { defined &first (shift, @_) } 

  DB<139> any {$_==0} @a
 => 1

##</code><code>##

  DB<144> sub any (&\@) { defined &first } 

  DB<145> any {$_==0} @a
 => 1

##</code><code>##

  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)