Call your subroutine indirectly with an anonymous code reference instead:

while (<MAINDB>) {
  find( sub { wanted(\*C_LOG, \*R_LOG, $_) }, $_);
}
[download]

If you like you can use my $file = shift; in the subroutine, instead of getting it from $_. It shouldn't actually matter, but I'm starting to see too many $_ variables in this short piece of code...

buckaduck