return para[1] 

##</code><code>##

$str = pack('ddd', 1.0, 1.1, 1.3);

##</code><code>##

void
func(doublearrsv)
    SV * doublearrsv
PREINIT:
    STRLEN len;
    double (*doublearr)[3];//I hope this works
CODE:
    doublearr = SvPV(doublearrsv, len);//cast warning here
    if(len != sizeof(*doublearr)) croak("bad len");
    do_nothing(&doublearr[2]); //THIS WILL UPDATE IN PERL LAND

##</code><code>##

@array = unpack('ddd', $str);

##</code><code>##

@arr = ([11,12,13], [21,22,23], [31,32,33]);
myxsub(@arr);

##</code><code>##

void
myxsub(...)
PREINIT:
    int i;
CODE:
    for(i=0; i< items; i++){
         SV * sv =  ST(i);
         //do something
    }