my %hash;
open $hash{fh}, '>', 'foo' or die $!;
print {$hash{fh}} "foo";
#     ^         ^