Help for this page
print $fifo "$categories{$ky}#";
"sqlldr control=atpctl.ctl data=atp_fifo.dat userid=someu +ser/pwd log=loader.log"