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