if ( abs( $number1 - $number2 ) < $something_tiny ) {
    print "all is well.\n";
}