my @test;
my $reftest = \@test;
add_nir(1,4,\$reftest);