use IO::File; my $main = { FH => IO::File->new}; # FileHandle in Hashref