my $x = (1 - 0.99) * 100 ;
print $x, ("$x" - int($x)) ? " has fraction" : " no fraction", "\n" ;