You are very, very wrong.

'ID' or 'TITLE' or 'GENE' or 'CYTOBAND' or 
'LOCUSLINK' or 'CHROMOSOME' or 'SCOUNT'
[download]

evaluates to 'ID'.

use strict;
my $key = 'TITLE';

unless (($key) eq ('ID' or 'TITLE' or 'GENE' or 'CYTOBAND' or 
                   'LOCUSLINK' or 'CHROMOSOME' or 'SCOUNT')) {
    print "Damian is wrong\n";
}
[download]

This prints "Damian is wrong".

-- Abigail