This is my gethost method. I had taken the ports into account.

sub gethost{
        my ($val)=@_;
        if($val=~/(\d+\.\d+\.\d+\.\d+)/){
                my $host=gethostbyaddr(inet_aton($1),AF_INET);
                return $host;
        }
        return "";
}
[download]

If I use print the hash values after they're assigned, I get the expected output. It's just when I try to reuse the hash, the host values seem to be all the same.

if(/\s*Listen\s+(\S*)/){
       $instdetails{$instnum}{Listen}{$1}=1;
       $instdetails{$instnum}{Listen}{$1}{host}=gethost($1);
       print ERR "$instnum $listen $instdetails{$instnum}{Listen}{$1}{
+host}";
       next;
}
[download]

Also I don't want take this off topic, but I can't use a module for this. I'm distributing the script to a large num of servers, which all have different versions of perl.