use strict;

my $number = 12650 / 10000;
#my $number = 1.265;
my $dp = 2;

print "Actual: $number\n";

my $exp = 10 ** ($dp);

my $val1 = $number * $exp * 10;
my $val2 = int($val1);
my $val3 = $val2 + 5;
my $val4 = $val3/10;
my $val5 = int($val4);
my $val6 = $val5 / $exp;

print "$val1\n";
print "$val2\n";
print "$val3\n";
print "$val4\n";
print "$val5\n";
print "$val6\n";


Output
Actual: 1.265
1265
1264
1269
126.9
126
1.26