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