@even = @array[map 2*$_, 0..$#array/2];
@odd  = @array[map 2*$_+1, 0..$#array/2];