http://www.perlmonks.org?node_id=1044765


in reply to Columns in double dimension array

I think, I don't understand the problem completely.

 $csv->getline($io) already returns a ref to an array where, each entry "n" is the cell of column "n+1".

So this should already give you the correct array: 

while (my $row = $csv->getline($io)) {
    push @DD, $row;
}

[download]

$DD[$r][$c] should give you the entry in row "r+1" and column "c+1".

s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e

In Section Seekers of Perl Wisdom