my @project; for $i (@select) { push @project,[ $i->[0,2,4] ]; }