#!/usr/bin/perl -w
use strict;

my $key = 'JUMP';

if ($key =~ /^(ID|TITLE|GENE|CYTOBAND|LOCUSLINK|CHROMOSOME|SCOUNT)$/) {
   print "I don't know why this is printing.\n";
}