I've fixed it by commenting out the other line:

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