use strict;
use warnings;
use Benchmark;
#maximum distance we are looking for
my $delta = 0.01;
#test array
my @a;
for (1..300000) {
  push @a, rand() * 300;
}

my ($r, $s);

timethis ( 10 => 
  sub { ...