my $x = 1.15;
print "x=$x *** ";
$x=(int($x*100.1))/100; # note: 100.1
print "x=$x ***";