my $f = *STDOUT;
$STDOUT{foo} = 'bar';
print *{$f}{HASH}{foo},"\n";
print ${$f}{foo},"\n";
__END__
bar
bar