my @original = qw(5, 100, 2, 8, 40);
my @sorted_indicies = sort { $original[$a] <=> $original[$b] } 0..$#original;
my @rank;
@rank[@sorted_indicies] = 0..$#sorted_indicies;
my @letters = map { chr(ord('A') + $_) } @rank;
print "@letters\n";