my @original_array = qw(5 100 2 8 40); my @letter_seq = do { my %letter_for; @letter_for{sort { $a <=> $b } @original_array} = ('A' .. 'Z'); @letter_for{@original_array}; };