my @data; 
my $n=0;
while ($organized=<DATA2>) {
  chomp;
  $organized=~s/(\s)\w+/$1z/g;
  push @{$data[$n++]}, (split /\s+/, $organized);
}