#!/usr/bin/perl -w use strict; my $key = 'JUMP'; if ($key eq 'ID' or 'TITLE' or 'GENE' or 'CYTOBAND' or 'LOCUSLINK' or 'CHROMOSOME' or 'SCOUNT') { print "I don't know why this is printing.\n"; }