my @original_array = qw/ 5 100 2 8 40 /;
  my @sequence;
  
  @sequence[
    sort {
        $original_array[$a] <=> $original_array[$b]
    }(0 .. $#original_array)
  ] = 'A' .. 'Z';

  print "@sequence\n";

##</code><code>##

  B E A C D