$number = 12650 / 10000;
$dp = 2;

print "Actual: $number\n";

my $exp = 10 ** $dp;

$val1 = $number * $exp;
$val2 = $val1 + 0.5;
$val3 = int($val2);
$val4 = $val3 / $exp;

print "val1 = value x exp = $val1\n";
print "val2 = val1 + 0.5 = $val2\n";
print "val3 = int(val2) = $val3\n";
print "val4 = val3 / exp = $val4\n";