@lines_of_code # Say this is your 40,000,000 lines of code

my $i;
my @rlc;  ### Random lines of code
for ($i = 0; $i < 20000000; $i++){
    $rlc[$i] = $loc[int(rand(40000000)+1)];
}