use warnings;
use Inline CPP => Config =>
    BUILD_NOISY => 1;

use Inline CPP => <<'EOC';

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

EOC

my @test = (1, 2);
print "@test\n";
my $reftest = \@test;
add_nir(1, 4, $reftest);
print "@test\n";

##</code><code>##

1 2
1 2 2

##</code><code>##

use warnings;
use Inline CPP => Config =>
    BUILD_NOISY => 1;

use Inline CPP => <<'EOC';

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


EOC

my @test = (1, 2);
print "@test\n";
my $reftest = \@test;
add_nir(1, 4, $reftest);
print "@test\n";