foreach (@ehealth) {
                $bool_ping ="";
                $ip="";                                                      #Kontrolle: pingbar?
                $host = $_->[0].".homenet.de";
                $timeout = 0.5;

                $p = Net::Ping->new();


                $ping = $p->ping($host, $timeout);
                $p->close();