while (<MAINDB>) {
   find(\&wanted(\*C_LOG, \*R_LOG), $_);
}