perl -wE'
use Devel::Peek;

use utf8; # strings direkt im skript werden automatisch dekodiert
binmode STDOUT, ":encoding(utf-8)";

my @rows = (
    ["foo","bär","baz"],
    ["foo","bar","baz"],
);
Dump $rows[0]->[1];
for my $row (@rows) {
    printf "%-6s | %-6s | %-6s\n", @$row
}'
SV = PV(0x15a8298) at 0x15a3d28
  REFCNT = 1
  FLAGS = (POK,pPOK,UTF8)
  PV = 0x15a10b0 "b\303\244r"\0 [UTF8 "b\x{e4}r"]
  CUR = 4
  LEN = 8
foo    | bär    | baz   
foo    | bar    | baz