my @a = Suff(@string);

##</code><code>##

Inline_Stack_Vars
Inline_Stack_Reset
Inline_Stack_Push(sv)
Inline_Stack_Done

##</code><code>##

my $aref = Suff(@string);
# print "@$aref";  # or whatever

##</code><code>##

#!/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;

##</code><code>##

lhfsadgfbfsdaubsdkj
hfsadgfbfsdaubsdkj
fsadgfbfsdaubsdkj
sadgfbfsdaubsdkj
adgfbfsdaubsdkj
dgfbfsdaubsdkj
gfbfsdaubsdkj
fbfsdaubsdkj
bfsdaubsdkj
fsdaubsdkj
sdaubsdkj
daubsdkj
aubsdkj
ubsdkj
bsdkj
sdkj
dkj
kj
j