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