open (ORGDB,"<$database");
<ORGDB>; # Throw away header line
@ODB=<ORGDB>;
close (ORGDB);