int add_nir(int x, int y, AV* perlList )