sub transform {
   my $data = shift;
   local $log_fh = shift;

   ...
   foo($bar);
}

sub foo {
   my ($bar) = @_;
   print $log_fh "Processing $bar.\n";
   ...
}