Select Code to Download

sub any (&@) {
    my $code_ref = shift;
    unshift @_, 0;
    reduce { $a or $code_ref->(local $_ = $b) } @_;
}

sub any (&@) {
    my $code_ref = shift;
    reduce { $a or $code_ref->(local $_ = $b) } 0, @_;
}