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