my @filtered=do { my $i=1; grep $i++ % $N,@unfiltered};