( $even[ @even ], $odd[ @odd ] ) = splice @array, 0, 2 while @array;