print $fifo "$categories{$ky}#";

##</code><code>##

"sqlldr control=atpctl.ctl data=atp_fifo.dat userid=someu
+ser/pwd log=loader.log"