double d[100000];
   
    AV* a = newAV();
    for(i=0;i<len;i++)
      av_push(a, newSVnv(d[i]));