#!/perl/bin/perl

use Smart::Comments;
use strict;
use warnings;

my $_raa;
my $i=0;
while (<DATA>) {
    chomp;
    my @a=split(',');
    for my $j (0..$#a) { $_raa->[$j][$i]=$a[$j] };
    $i++;
     };
### $_raa
__DATA__
123,"text",66,"more text"
124,"text1",67,"more text1"
125,"text2",68,"more text2"