You could also use Perl6::Junction (or Syntax::Keyword::Junction or Quantum::Superpositions), e.g.

use Perl6::Junction qw/any/;
 ... ($var eq any('foo','bar')) ...
[download]