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

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