use Perl6::Form;

my @play = ( "Othello, The Moor of Venice",
             "Richard III",
             "Hamlet, Prince of Denmark",
           );

my @name = ( "Iago",
             "Henry,\rEarl of Richmond",
             "Claudius,\rKing of Denmark",
           );

    print form
         "+-------------------------------------+",
         "| Index | Character    | Appears in   |",
         "|=====================================|",
         join(
         "|-------------------------------------|\n",
         map( { form
         "|{=][[=}| {=IIIIIIII=} | {=IIIIIIII=} |",
            $_+1,   $name[$_],     $play[$_] } 0..$#name)),
         "+-------------------------------------+";