Help for this page
my @ODB; my $firstLine++; ... $firstLine = ''; } close (ORGDB)
my @ODB; open (ORGDB, $database) || die "open $database - $!\n"; ... push (@ODB, $_); } close (ORGDB);