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

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

printf "%.0f\n", $j;