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

  DB<195> first {$_ eq 3 } @a
 => 3

  DB<196> prototype \&List::Util::first 
 => "&\@"

  DB<197> sub any (&\@) { &List::Util::first }   

  DB<198> any {$_ eq 3 } @a
 => undef

##</code><code>##

  DB<210> sub any (&\@) { &List::Util::first } 

  DB<211> prototype \&any
 => "&\\\@"

  DB<212> sub any (&@) { &List::Util::first } 
Prototype mismatch: sub DB::any (&\@) vs (&@) at (eval 254)[multi_perl5db.pl:2279] line 1.

  DB<213> prototype \&any
 => "&\@"

  DB<214>  any {$_ eq 0 } @a
 => undef

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

  DB<216>  any {$_ eq 0 } @a
 => undef

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