push @{$myroom->{$room}->{dpt}},$exroom ;
$myrooms->{$room}->{r} = $room ;