sub delete_socket {
   my ($sel, $sock) = @_;
   my %delete_hash = reverse %hash;
   print "Verbindung zu Client $delete_hash{$sock} wurde abgebrochen\n";
   $sel->remove($sock);
   $sock->close();
}