#!/usr/bin/perl

use Inline C;

use strict;
use warnings;

use Data::Dumper;

my $arr = mkarr();
print ref($arr) . "\n";
print Dumper($arr) . "\n";

__END__
__C__

AV* mkarr() {
	
	int i;
	int size = 10;
	
	SV** pint = (SV **) malloc(size * sizeof(SV*));
	for(i = 0; i < size; ++i)
		pint[i] = newSViv(i);

	return av_make(size, pint);	
}