Select Code to Download

use strict;

#@internal_array_ref[1] = 20;
# better as
$internal_array_ref[1] = 20;

for my $key_primary (keys %internal_hash_ref) {

...
  }

}

primary key: *1*
  secondary key: *1_b*
...
    *34 23 24 30 10 38 47 23 17 25*
  secondary key: *2_b*
    *45 47 44 44 45 39 13 35 14 23*