# One argument is true

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

  # All arguments are true

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