use strict;
use warnings;
use Data::Dump;
use List::MoreUtils 'none';

my @a    = (1, 2, 3, 4, 3, 5, 3);
my @find = (3, 4);

dd grep { my $e = $_; none { $e == $_ } @find } @a;

##</code><code>##

22:52 >perl 1371_SoPW.pl
(1, 2, 5)

22:52 >