use Perl6::Form;
my @name = qw(Smith Woo Jones Nguyen Lee);
my @status = qw(Retired Active Leave);
my @position = qw(Admin Sales Sales Admin );
print form {vfill=>"<unknown>"},
<<EOFORM, \@name, \@position, [map "($_)", @status];
{IIIIIIIIIIIII} {IIIIIIIIIIII}
{IIIIIIIIIIIII}
------------------------------
EOFORM