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