____
1.15 base10 = 1.001001 base2

##</code><code>##

use feature qw( say );
use Math::Round qw( round );

my $x = 3010*1.15;
say round($x);
say round(round($x * 10**5) / 10**5);  # 5 decimal places of precision

##</code><code>##

3461
3462