Gah! Seemed easy but the best I could think of right now is:

@other_array = pop @array;
while (@array > 3) {
    push @other_array, splice @array, 0, 2;
    push @other_array, reverse splice @array, -2;
}

push @other_array, splice @array, 0, 2 if @array > 1;
push @other_array, shift @array if @array;
[download]