http://qs321.pair.com?node_id=87224


in reply to Confused by a Conditional

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.'; }

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.