sample = {WordData[#, "Definitions"] & /@ RandomSample[words, 4],
Hyperlink[#,
"http://tvtropes.org/pmwiki/pmwiki.php/Main/" <>
StringReplace[#, Except@LetterCharacter -> ""]] & /@
RandomSample[plots~Join~goals, 2]};
Column[Append[
Row[{Column[First@#, {Center, Bottom}, Frame -> All,
Background -> {LightGray}, ItemStyle -> {Bold},
ItemSize -> 15], " ", Pane[Last@#, 300]}] & @@@ First@#,
Item[Row[Last@#, "|"], Alignment -> Center]],
Frame -> All] &@sample