for ($i=0; $i<$length2; $i+=2){
        push @array2, $array[$i];
    }
    for ($i=1; $i<$length; $i+=2){
        push @array2, $array[$i];
    }

##</code><code>##

    for $i(0..($length-1)/2){
        push @array2, $array[$i*2];
    }
    for $i(0..($length-1)/2){
        push @array2, $array[$i*2+1];
    }

##</code><code>##

    for $i(0..$#array/2){
        push @array2, $array[$i*2];
    }
    for $i(0..$#array/2){
        push @array2, $array[$i*2+1];
    }