open (DATABASE,">$database");
@DB=<DATABASE>;

##</code><code>##

if ($agent_name eq $input{'nagent_name'} && $agent_phone eq $input{'nagent_phone'} ){

##</code><code>##

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

##</code><code>##

for (@ODB) {
    ($agent_name,$agent_phone,$agent_cell,$agent_email)=split(/\|/);