my @a = qw/1.3 5.8 9.5/;
my @b = map(ceil($_), @a);