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

##</code><code>##

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

##</code><code>##

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