Select Code to Download

#maximum distance we are looking for
$delta = 0.01;
...

print "Not further than $delta apart are the following pairs:\n";
print "$_\n" for (keys %near);

Not further than 0.01 apart are the following pairs:
-0.002, 0.005
...
1.011, 1.02
1.03, 1.04
1.01, 1.011

use strict;
use warnings;
...

timethis ( 10 => 
  sub { ...