#!/usr/bin/perl -w
use strict;

use FileHandle;

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