use strict;
my @string = qw(a a b h a g s j s z u u e);
my $n=@string;
my $str = join('',@string);
my @a = Suff($str,$n);
foreach (@a){
  print "@string[$_..$n]\n"; 
}


use Inline C => <<'END_C';
#include <math.h>
#include <stdio.h>
#include <string.h>
#include <stdlib.h>


void Suff(char* array,int n){
        int i;
        char **sarray;
        sarray = (char **)malloc(n * sizeof(char *));
        char *string;
        string = savepv(array);
        for(i=0;i<n;i++){
            sarray[i]=string + i;
        }
        Inline_Stack_Vars;
		Inline_Stack_Reset;
        for(i=0;i<n;i++){
            Inline_Stack_Push( sv_2mortal( newSViv(n - (int)strlen(sarray[i]) ) ) );   
        }
        Inline_Stack_Done;
}
END_C