for ($some->complicated(@value)->{$to_fetch}) {
  print; # print it
  print LOGFILE $_; # and to the logfile
  substr($_, 0, 1, ""); # remove its first character
}

##</code><code>##

do_this($_), do_that($_, @moreargs) for $some{$complicated}{$value};