my @evens = @all[map $_*2+1, 0..$#all/2];

##</code><code>##

my @evens = @all[grep !($_ % 2), 0..$#all];    # even-index elements
my @odds  = @all[grep $_ % 2, 0..$#all];       # odd-index  elements