#!/usr/bin/perl
use warnings;
use strict;

my %f;

open($f{r},'>','test.txt') or die;
my $fhvalue=$f{r};
print '<',ref $fhvalue,">\n";
my %i;
$i{$fhvalue}= 1;
my ($fhkey)= keys %i;
print '<',ref $fhkey,">\n";

#prints
<GLOB>
<>