DB<53> sub first (&@) { my $code=shift; &$code and return $_ for @_ ; ()}

  DB<54> sub any (&@) { my $code=shift; &$code and return 1 for @_ ; ()}