#! /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;