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

##</code><code>##

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

##</code><code>##

<strike>print "true\n" if any { $_> 11 } qw /3 12 4 5 7/; # prints true

##</code><code>##

print "true\n" if any { $_> 11 } 0, qw /3 12 4 5 7/; # prints true