my $fh;
my %x;

open($fh, ...)
$x{handle} = $fh

print $x{handle} "Wow!\n";