for my $i ( 0 .. $#{$v} ) {
    print "  col $i: ". join( ', ', @{ $v->[$i] } ) ."\n";