foreach my $user(@users) {
  $user = lc($user);
  my $room = $chatters{$user}->{room};
  if(lc($room) eq lc($raum)) {
    my $handle = $chatters{$user}->{client};
use Data::Dumper;
$handle or print Dumper \$user, \%chatters;
    delete $chatters{$user} if(!$handle->send("$text
\r"));
  }
}