Help for this page
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 }, }
my %out; my %index; my $precision = 10; ... 1021 => { One => 1, Two => 1 }, 1022 => { One => 1, Two => 1 }, }
www.com | www.net | www.org
No recent polls found