my %desc;

$desc{'room'} =<<END;
some text here, probably something
a few lines long
END

$desc{'wall'} =<<END;
another text here, probably something
a few lines long [sometimes with braces]

sometimes with a few paragraphs
END