Don't you have those two backwards?

sub max (*@v) { any(@v) >= all(@v) }
[download]

That sounds more logical to me -- it returns any element of @v such that it is greater than or equal to all elements of @v.

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;