#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use Perl6::Junction qw/ none /;

my @items = qw/a b c d/;
my @bad   = qw/a d/;

my @filtered = grep { $_ eq none @bad } @items;
print Dumper \@filtered;