for(0..$X) {
    $newArray[$_] = $orig->[$_] ;
}