#!/usr/bin/perl
use strict;
use warnings;

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

print "spalte1 spalte2 spalte3\n",
      "-----------------------\n";

for my $value ( @values ) {

format STDOUT =
@<<<<<< @|||||| @>>>>>>
$value->[0], $value->[1], $value->[2]
.

    write;
}