#! /usr/bin/perl -w
use strict;
use 5.010;

use Perl6::Form;

my @last = qw(Smith Jones Wright Wong Evans McFee Ho Nuygen Willians Howlett Jones Peters Milford Tam Lam Soma Egon Wilson);
my @first = qw(Jim Jack Wendy Lee Bo Lenord Jan Dana Lindy Kyle Nora Jane Bill Woo John Mick Lazlo Jenna);
my @mid   = ("\xa0", "\xa0", 'A', "\xa0", "B", "\xa0", "\xa0", 'A', "\xa0", "B", "\xa0", "\xa0", 'A', "\xa0", "B", "\xa0", "\xa0", 'A');
my @suf   = ("") x 18;
my @nick = qw(Jim Jack Wendy Lee Bo Lenord Jan Dana Lindy Kyle Nora Jane Bill Woo John Mick Lazlo Jenna);
my @ID = 1..18;

print form
    { 
      page => { length => 15,
                number => 1,
                feed => "\f",
                footer =>            "_____________________________________________________________________\n",
                header => { first => "=====================================================================\n"
                                   . "|                   xxxxxxxxxxxxxxxxxxxxxxxxxxxx                    |\n"
                                   . "|                     xxxxxxxxxxxxxxxxxxxxxx                        |\n"
                                   . "|                                                                   |\n"
                                   . "|                          List of Players                          |\n"
                                   . "|===================================================================|\n"
                                   . "|Last                |First               |MI|Suffix|Nickname  |  ID|\n"
                                   . "|___________________________________________________________________|",
                          other =>   "=====================================================================\n"
                                   . "|                          List of Players                          |\n"
                                   . "|===================================================================|\n"
                                   . "|Last                |First               |MI|Suffix|Nickname  |  ID|\n"
                                   . "|-------------------------------------------------------------------|",
                     }
            }
    },
    "| {]]]]]]]]]]]]]]]]} | {]]]]]]]]]]]]]]]]} |{}| {II} | {]]]]]]} | {} |\n",
        \@last,              \@first,          \@mid,\@suf, \@nick,  \@ID;