#!/usr/bin/perl -l

use Inline C => <<'EOC';

int get(SV* self, int index) {

    HV* h     = (HV*) SvRV(self);
    char* key = "permutation";
    SV** aref = hv_fetch(h, key, strlen(key), FALSE);
    if (aref == NULL) { /* ... */  exit(-1); }
    AV* a     = (AV*) SvRV(*aref);
    SV** res  = av_fetch(a, index, FALSE);
    if (res  == NULL) { /* ... */  exit(-1); }
    IV i      = SvIV(*res);

    return i;
}

EOC

my $obj = bless { permutation => [2,42,2,2,2,2,2,2,2,2,2] }, "Whatever";

print get($obj, 1);   # prints 42