You've named your array @string. Did it start out as a string?

If so, in fact even if not, the simplest way of producing your list of suffices is:

## Skip this step (and the split) if the array started out as a string
+!
$string = join '', qw(a a b h a g s j s z u u e);;

print substr( $string, $_ ) for 0 .. length( $string ) -1;;
aabhagsjszuue
abhagsjszuue
bhagsjszuue
hagsjszuue
agsjszuue
gsjszuue
sjszuue
jszuue
szuue
zuue
uue
ue
e
[download]

Without having tested it, I'd bet even with the join that'll run twice as quickly as any I::C implementation.