use POSIX qw(ceil);
my $rounded = ceil($i*100) / 100;