Select Code to Download

my $room = ( {

        TEXT => $string,
...
        CMDS => { %cmds },
#       EVENTS => \&events,
          } );

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