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/2){
        push @array2, $array[$i*2];
    }
    for $i(0..$length/2){
        push @array2, $array[$i*2+1];
    }