my @a;
while (<>) {
   chomp;
   my @rec = split;
   push @a, [ @rec[???, ???, ???] ];
}