Select Code to Download

my @invalid_list = qw< John Simon Mathias Aerith Bob >;
my @test = qw< Alice Bob John Doe >;

...
{
  print "$name\n" unless exists $invalid{$name};
}

use List::Util qw( none all any );
for my $name (@test)
{
...
  print "Any  > $name\n" unless any { $name eq $_ } @invalid_list;
  print "All  > $name\n" if all { $name ne $_ } @invalid_list;
}