my @original_array = qw(5, 100, 2, 8, 40);

# Build lookup hash
my %num2letter;
my $char = "A";
foreach my $num (sort {$a <=> $b} @original_array) {
  $num2letter{$num} = $char++;
}

my @letter_sequence = @num2letter{@original_array};