#!/usr/bin/perl -wl
use strict;
use Inline C => <<'END_C';

void test() {
    Inline_Stack_Vars;
    Inline_Stack_Reset;

    char *string = "lhfsadgfbfsdaubsdkj";
    int i;
    STRLEN n = strlen(string);
    for(i=0; i<n; i++){
        Inline_Stack_Push( sv_2mortal( newSVpv(string + i, 0) ) );
    }
    Inline_Stack_Done;
}
END_C

my @a = test();
print for @a;