use Perl6::Junction qw/ none /;

my @items = qw/a b c d/;
my $bad   = none( qw/a d/ );

my @filtered = grep { $_ eq $bad } @items;