@A = (A,C,D,D,C,D,A,G,F);


##</code><code>##


 #!/usr/bin/perl

use strict;


my @array = qw(a c a a a c a t a t z);

my @sorted = sort { $array[$a] cmp $array[$b] } (0 .. $#array);

print join('',@array[$sorted[$_] .. $#array]) . "\n" for 0..10;


#prints
acaaacatatz
aaacatatz
aacatatz
acatatz
atatz
atz
caaacatatz
catatz
tatz
tz
z