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