Select Code to Download

use strict;
use warnings;
...
   sort
   map { substr $str, $_ }
   0 .. length( $str ) - 1;

ACDDCDAGF
AGF
...
DDCDAGF
F
GF

use strict;
use warnings;
...

say join q{}, @arr[ $sortedIndices[ $_ ] .. $#arr ]
   for 0 .. $#sortedIndices;

aaacatatz
aacatatz
...
tatz
tz
z