perl -wE'
use Devel::Peek;

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(0xda5c98) at 0xda7b98
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0xdce050 "b\303\244r"\0
  CUR = 4
  LEN = 8
foo    | bär   | baz   
foo    | bar    | baz