# One argument is true

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

  # All arguments are true

  sub all { $_ || return 0 for @_; 1 }

##</code><code>##

# One argument is true

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

  # All arguments are true

  sub all { $_ == 'foo' || return 0 for @_; 1 }

##</code><code>##

if (all (@array == 'foo')) {