my $room = ( {

        TEXT => $string,
        EXITS => $exits,
        THINGS => { %things },
        ITEMS => { %items },
        CMDS => { %cmds },
#       EVENTS => \&events,
          } );