$_->[0] = \*STDOUT;
print { $_->[0] }  "moo\n";