#!/usr/bin/perl
use strict;
use warnings;
use Perl6::Form;

my @values = (
    [ 1, 1,    'value1' ],
    [ 2, 20,   'value2' ],
    [ 3, 2000, 'value3' ],
);

print form "+---------+-----------+-----------+",
           "|  Wert1  |   Wert2   |   Wert3   |",
           "+---------+-----------+-----------+";

for my $value ( @values ) {
    print form "| {<<<<<} | {|||||||} | {>>>>>>>} |",
               $value->[0], $value->[1], $value->[2],
}

print form "+---------+-----------+-----------+";