Select Code to Download

use strict;
use warnings;
...
        }
    }
}

1 - 12: [0 .. 11]: 1 2 3 4 5 6 7 8 9 10 11 12
10 - 20: [9 .. 14.5]: 10 11 12 13 14 15
18 - 25: [15 .. 19]: 21 22 23 24 25
2000 - 3000: [1895 .. 1901.5]: 2000 2010 2011 2012 2013 2014 2015

my $lowIndex = BinSearch ($lowerlimit, sub {$_[0] <=> $_[1]}, $matches
+{$element}{$sitekey}) + 0.5;
my $highIndex = BinSearch ($upperlimit, sub {$_[0] <=> $_[1]}, $matche
+s{$element}{$sitekey});
my @arrayA = @{$matches{$element}{$sitekey}}[$lowIndex..$highIndex];