my $x = 1.159; print +(int($x*100.1))/100;