#!/usr/bin/perl

use Inline C;

use strict;
use warnings;

use Data::Dumper;

my $hash = mkhash();
print ref($hash) . "\n";
print Dumper($hash) . "\n";

__END__
__C__

HV* mkhash() {
	
	HV *hash = newHV();
	
	hv_store(hash, "name", 5, newSVpv("John Doe", 0), 0);
	hv_store(hash, "age", 4, newSViv(42), 0);	

	return hash;	
}