#!/usr/bin/perl
use strict;
use warnings;

my $i = 1.255;
my $j = $i * 100 + 0.5;

print "$j\n";
printf "%.16e\n", $j;

##</code><code>##

126
1.2599999999999999e+002