# One argument is true

sub any { $_ && return 1 for @_; 0 }

##</code><code>##

sub any(&@) {
    my $code = shift;
    $code->() && return 1 for @_;
    0
}

##</code><code>##

my $has_undefs = first { not defined } @list;

##</code><code>##

sub count(&@) {
  my $code = shift;
  scalar grep { $code->() } @_
}