Select Code to Download

'ID' or 'TITLE' or 'GENE' or 'CYTOBAND' or 
'LOCUSLINK' or 'CHROMOSOME' or 'SCOUNT'

use strict;
my $key = 'TITLE';
...
                   'LOCUSLINK' or 'CHROMOSOME' or 'SCOUNT')) {
    print "Damian is wrong\n";
}