my @ODB;
open (ORGDB, $database) || die "open $database - $!\n";
while (<ORGDB>) {
   next if (substr($_, 0, 12) eq 'company_name');
   push (@ODB, $_);
}
close (ORGDB);