Help for this page

Select Code to Download

Select or download this

use Data::Dump qw(pp);

my @array = qw<1000 1000 1000 1010 1010 1010 1020 1022 1023>; 
...
  "1022:7" => { One => 1, Two => 1 },
  "1023:8" => { One => 1, Two => 1 },
}

Select or download this

my %out;
my %index;
my $precision = 10;
...
  1021 => { One => 1, Two => 1 },
  1022 => { One => 1, Two => 1 },
}