use strict; my $number = 12650 / 10000; #my $number = 1.265; my $dp = 2; print "Actual: $number\n"; my $exp = 10 ** ($dp+1); my $val1 = int($number * $exp); my $val2 = $val1 + 5; my $val4 = $val2 / $exp; print "val1 = value x exp = $val1\n"; print "val2 = val1 + 5 = $val2\n"; #print "val3 = int(val2) = $val3\n"; print "val4 = val2 / exp = $val4\n";