use strict;
use warnings;

my $n1 = 35.152000;
my $n2 = 35.152001;

if (abs($n1 - $n2) < 0.000_009) {
    print 'equal'
}
else {
    print 'not equal'
}

__END__

equal