use Perl6::Form;
%categories = (
Animal => ["The mighty destrider,\nship of the knight",
"The patient cat, warden of the granary",
"Our beloved king, whom we shall soon have to kill"],
Vegetable => ["The lovely peony, garland of Eddore",
"The mighty oak, from which tiny acorns grow",
"The humble cabbage, both food and metaphor for the fool"],
Mineral => ["Gold, for which men thirst",
"Salt, by which men thirst",
"Sand, on which men thirst",
],
);
for my $category (keys %categories) {
print form
{bullet=>'*'},
"** * {<<<<<<<<<<<<<<<<<<<<<<<<<<<<} **", $category,
{bullet=>'-'},
" - {[[[[[[[[[[[[[[[[[[[[[[[[[[} - ", $categories{$category};
}