if (grep {$key eq $_} qw(ID TITLE GENE CYTOBAND LOCUSLINK CHROMOSOME SCOUNT)) {
  print "This didn't print, did it?\n";
}