fopen (ORGDB,"<$database");
@ODB=<ORGDB>;
close (ORGDB);
...
    foreach $rec (@ODB){
        chomp($rec);
        ($agent_name,$agent_phone,$agent_cell,$agent_email)=split(/\|/,$rec);