Ignore all of the above comments- what you need is Quantum::Superpositions! :-D

use Quantum::Superpositions;
if($key eq any('ID','TITLE','GENE','CYTOBAND','LOCUSLINK',CHROMOSOME',
+'SCOUNT'))
{
   print 'Kiss your old C-logic woes goodbye.';
}
[download]

AgentM Systems nor Nasca Enterprises nor Bone::Easy nor Macperl is responsible for the comments made by AgentM. Remember, you can build any logical system with NOR.