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