for ( 0 .. @array / 2 ) {
    my ( $lower, $upper ) = ( shift @array, pop @array );
    push @other_array, $lower % 2 ? ( $upper, $lower ) : ( $lower, $upper );
    }