$ perl -Mstrict -Mwarnings -E '
my @identified_bad_links = (qw{a c e});
my %bad_link = map { $_ => 1 } @identified_bad_links;
my @all_links = (qw{a b c d e f g});
say $_ for grep { ! $bad_link{$_} } @all_links;
'
b
d
f
g