Select Code to Download

%host = (

...
    }

);

foreach $ip (keys %host) {
    print $ip . "\n";
...
        }
    }
}

$host{'ip1'}->{'tcp'}->{53}->{'state'} = 'open';
$host{'ip1'}->{'tcp'}->{53}->{'service'} = 'dns';