int add_nir(int x, int y, AV** perlList )
   {
    *perlList = newAV();
    SV* perlItem=newSViv(2);
    av_push(*perlList, perlItem);
...

}