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