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 $^STDOUT, < form \%(vfill=>"<unknown>"),
	<<EOFORM, \@name, \@position, \ map { "($_)" }, @status;
\{IIIIIIIIIIIII\} \{IIIIIIIIIIII\}
\{IIIIIIIIIIIII\}
------------------------------
EOFORM