my @arr= (0) x $length;
while ( ... get range to process ...) {
 for (my $i=$range->{FROM}; $i<$range->{TO}; ++i) {
  $arr[$i]++;
 }
}