use Perl6::Form;

my @vals = (
    [ "hello there",    9,  7, 42,  3.14159 ],
    [ "another string", 12, 9, 123, 69.123 ],
);

print form "Words      |Value1 |Value2 |Value3  |Value4";

for my $r (@vals) {
    print form
      "{<<<<<<<<} |{||||} |{||||} |{|||||} |{]]]]]} ",
      $r->[0], $r->[1], $r->[2], $r->[3], $r->[4];
}

##</code><code>##

    use Text::Table;

    my $tb =
      Text::Table->new( "Words", "Value1", "Value2", "Value3", "Value4" );

    $tb->load(@vals);

    print $tb;