How to make reading from long lists faster?

Question

Background

I am using Mathematica to solve a traveling-salesman-like problem. I implemented two different algorithms that are able to solve this type of problem and both algorithms yield the same result, which is good.

Problem

However, one algorithm takes approximately 20 times longer than the other (measured with Timing). After analyzing the slow algorithm with the tool RuntimeTools`Profile (see here) I found out that about 70% of the execution time is used to read floating-point numbers from long lists.

To isolate the problem, I wrote the following example Mathematica code:

testFunc := Block[{len, idx, dummyVar, timingResult, randomArray},
   len = 15000;
   testTime = 0.;
   randomArray = Table[RandomReal[{1, 100000}], {len}];
   Do[
      idx = RandomInteger[{1, len}];
      timingResult = Timing[randomArray[[idx]]];
      testTime += timingResult[[1]];
      , {1200000}
   ];
];

After executing this function, the value of the variable testTime which represents the CPU time in seconds spent to read values from randomArray is 2.49.
Just out of curiosity, I wrote some C++ code to see how long it would take to read values from an array the same number of times in C++:

#include <iostream>
#include <ctime>
#include <time.h>
#include <stdlib.h>


using namespace std;

int main() {
    srand(time(NULL));
    const int len = 15000;
    clock_t testTime = 0;
    double randomArray[len];
    double min = 1;
    double max = 100000;
    for (int i = 0; i < len; i++) {
        randomArray[i] = min + ((double)rand() / RAND_MAX) * (max-min);
    }

    double dummyVar;
    for (int i = 0; i<1200000; i++) {
        int idx = rand() % len;
        clock_t c_start = clock();
        dummyVar = randomArray[idx];
        clock_t c_end = clock();
        testTime += (c_end-c_start);
    }

    cout<<"CPU time: "<<1000.0 * testTime / CLOCKS_PER_SEC<<" ms"<<endl;
    return 0;
}

The output of this code is that 0.4427 seconds were needed to read values from randomArray.

Question

Is there a way to make reading from long lists in Mathematica more efficient? Or is there another data type in Mathematica that is better suited for my purposes?

After googling on this topic and not finding a solution for quite some time, I would be very happy about some help. Thank you in advance!