# der "äußere" Hash
for my $ip_port ( sort keys %hash ){
    print $ip_port,"\n";
    # der "innere" Hash (die Daten zum Server)
    while( my ($key,$val) = each %{ $hash{$ip_port} } ){
        print "Zum Schlüssel $key wurde der Wert $val gespeichert\n";
    }
}