my @stuff = qw/foo bar baz boing/;
my %ref = map { $_ => 1 } qw/bar boing/;

my @filtered = grep { !$ref{$_} } @stuff;