my @original = qw /5 100 2 8 40/;
my $s        = "A";
my @sorted   = map {$_ -> [1]}
              sort {$b -> [0] <=> $a -> [0]}
               map {[$_ => $s ++]} @original;