And yet another way, probably nearly as clean:

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

-- Randal L. Schwartz, Perl hacker