use warnings;
use strict;
use FileHandle;

my $hashref;
$hashref->{"fh"} =  FileHandle->new(">./test");
print { $hashref->{"fh"} } "Hello\n";