my @ODB;
my $firstLine++;
open (ORGDB, $database) || die "open $database -$!\n";
while (<ORGDB>) {
   next if ($firstLine);
   push (@ODB, $_);
   $firstLine = '';
}
close (ORGDB)

##</code><code>##

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