my (@even, @odd) = @field[
    map { $_, $_ + @field / 2 } 0 .. ( @field / 2 ) - 1
];

##</code><code>##

my (@even, @odd);
(@even[0..(@field/2)-1], @odd[0..(@field/2)-1]) =