Select Code to Download

use warnings;
use strict;
...
    my ($centroid, $testnum) = @_;
    return abs($centroid - $testnum) <= $tolerance;
}