my $room = ( {

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

##</code><code>##

 foreach (@rooms)
        {
                ($rr->{TITLE}, $rr->{TEXT}, $rr->{EXITS}, $rr->{THINGS}, $rr->{ITEMS}) =  split ":", $_;
                push @a, $rr;
        };
        return \@a;