Select Code to Download

my @names_to_check = qw/ bob sue joe /;
my %validnames = ();
...
for (@names_to_check) {
  print "$_ is okay\n" if (exists($validnames{$_}));
}