Re: Re: Re: Re: Re: Re: Re: Short (and clever?) CSV-to-AoA

[merlyn]

And yet another way, probably nearly as clean:

my @AoA; 
while (<DATA>) { 
  my $n = 0;
  for (split) {
    push @{$AoA[$n++]}, $_;
  }
}

-- Randal L. Schwartz, Perl hacker