use Perl6::Junction qw/ any /;
  
if (any(@list) eq $var) {

}