my $last_index = $#locations;

##</code><code>##

    my ($chr, $pos) = (split ' ', $locations[$indexes[$rand_index]])[0, 1];