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