open $hash{foo}, ">", "foobar"; print { $hash{foo} } "Test\n";