my $log = "Hello World!";
my $stdout_handler = \*STDOUT;
my $r_handler = \*R; # R has been open()-ed as usual

map { print $_ $log } ($stdout_handler, $r_handler);