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