Select Code to Download

my %names_h = map { $_->[0] => 1 } @names;
#             map { @$_ } @names; # similar, but more scary
...

print "Jim's in the hash\n"
  if $names_h{$name};