say join "\t", map $_ // q(), @$row;