use strict;
use warnings;
my $f = 0.9999;
my $f_faktor = 10000;
my $f_int = sprintf('%.0f', $f * $f_faktor);
print ((1*$f_faktor - $f_int) * 10000 == 1*$f_faktor ? 'ja' : 'nein', "\n");