http://www.perlmonks.org?node_id=202847


in reply to Storing metadata with file handles

Perhaps you should use the file descriptor number as a lookup key:
my %domain; my $filenum = fileno($fh); $domain{$filenum} = 'www.yoursite.com';

-Blake