DB<138> sub any (&@) { defined &first (shift, @_) } DB<139> any {$_==0} @a => 1