my @value=@{$v}; for my $pos_in_value (0..$#value) { print " col $pos_in_value: "; my $array_ref=$value[$pos_in_value] my @colomns=@{$array_ref}; print join( ', ', @colomns); print "\n"; }