#! /usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my @v = map $_ * 100, 160.22, 160.23;

printf "%.20f %d\n", $_, int for @v;

##</code><code>##

16022.00000000000000000000 16022
16022.99999999999818101060 16022

##</code><code>##

printf "%.20f %.0f %d\n", $_, $_, int for @v;