Select Code to Download

my $fh;
my %x;
...
$x{handle} = $fh

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

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