Select Code to Download

use Modern::Perl;

my @string = qw(a a b h a g s j s z u u e);
...
    say join '', @string;
    shift @string;
}

aabhagsjszuue
abhagsjszuue
bhagsjszuue
...
uue
ue
e