use Modern::Perl;

my @string = qw(a a b h a g s j s z u u e);

for (1 .. @string) {
    say join '', @string;
    shift @string;
}

##</code><code>##

aabhagsjszuue
abhagsjszuue
bhagsjszuue
hagsjszuue
agsjszuue
gsjszuue
sjszuue
jszuue
szuue
zuue
uue
ue
e