%things = split /-/, $th;
push @a, { TITLE => $t, TEXT => $de, EXITS => $ex, THINGS => {%things}  };