open (ORGDB,"<$database");
@ODB=<ORGDB>;
close (ORGDB);

shift @ODB;

#This should sort the lines by company alpha-order 
@ODB = sort(@ODB);