use strict;
use warnings;

use 5.010;

my @arr = qw{ A C D D C D A G F };

my $str = join q{}, @arr;

say for
   sort
   map { substr $str, $_ }
   0 .. length( $str ) - 1;