my @array;
while (<>){
   next if $.<2; #skip 1st line
   push @array, [(split / /, $_)[0,2,7]];
}