No need for map in void context:

print $_ $log for \*STDOUT, \*R;
[download]

P.S. I think I saw this from tye in the CB awhile back :-)