my $epsilon = 5e-13; # das was du als Toleranz ansiehst
return floor($_[0] + $epsilon);