my @test;
  add_nir(1,4,\@test);

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