my %dbfile = (); open DBFILE , "$dbFileName" or die $!; foreach () { $dbfile{$_} = 1; } close DBFILE; if (defined $dbfile{$cdLabel}) print "This CD ($cdLabel) is already in the database\n"; exit; }