my @data= ( 5, 100, 2, 8, 40 );
    my @indices= sort { $data[$a] <=> $data[$b] } 0..$#data;
    my @letters;
    @letters[@indices]= ('A'..'Z');
    print "@letters\n";